ComboBox mit festem Text bei Clear

[Christian Seehase]

Moin Helmi,

Zitat von Helmi:

Ich hoffe so was gibt es.

Jetzt schon

Delphi-Quellcode:

type
  TMyComboBox = class(TComboBox)
  private
    FsDefault : string;
  protected
    procedure CreateWnd; override;
  public
    constructor Create(AOwner : TComponent;AsDefault : string); reintroduce;
    procedure Clear;
  end;

implementation

{$R *.DFM}

{ TMyComboBox }

procedure TMyComboBox.Clear;
begin
  inherited Clear;
  self.Text := FsDefault;
end;

constructor TMyComboBox.Create(AOwner: TComponent; AsDefault: string);
begin
  inherited Create(AOwner);
  FsDefault := AsDefault;
end;

procedure TMyComboBox.CreateWnd;
begin
  inherited;
  self.Text := FsDefault;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TMyComboBox.Create(self,'Standardtext') do begin
    parent := self;
  end;
end;

Müsste natürlich noch erweitert werden, sollte aber das gewünschte tun.