ComboBox mit festem Text bei Clear

[Helmi]

Hallo,

kennt jemand eine ComboBox-Komponente bei der trotz ComboBox.Clear ein fester Text, sozusagen ein Default-Text, zu sehen ist?

Warum das ganze:

Ich bau in einem Programm eine ComboBox immer wieder neu auf (von den Einträgen her).

Diese wird auch oft wieder mit Clear gelöscht.
Ich möchte aber dass IMMER ein bestimmter Text in der ComboBox zu sehen ist, ohne dass ich den jedesmal nach einem Clear neu eintragen muss.

Weiterhin wärs auch ned schlecht, wenn diese neue ComboBox-Komponente, trotz festem Text, bei den neuen Einträgen trotzdem wieder bei 0 als Index beginnt.

Ich hoffe so was gibt es.

[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.

[Helmi]

Hallo Seehase,

danke für deinen Code.

Nur leider geht dein Code ned bei Style = "csDropDownList".

Noch was: Wäre es möglich das der Default-Text vor den hinzugefügten Items immer zu sehen wäre?
Aber trotzdem der Index erst ab dem ersten neu hinzugefügten Item beginnt zu zählen?
(sprich der zweite sichtbare Item ist vom Index her 0)

[Christian Seehase]

Moin Helmi,

irgendwo hatten wird das mit "Text trotz csDropDownList" erst letztens, leider weiss ich jetzt nicht genau wo...
Bei diesem Style wird der Text nie angezeigt.

Zitat von Helmi:

Wäre es möglich das der Default-Text vor den hinzugefügten Items immer zu sehen wäre?
Aber trotzdem der Index erst ab dem ersten neu hinzugefügten Item beginnt zu zählen?
(sprich der zweite sichtbare Item ist vom Index her 0)

was soll es denn werden, wenn's fertig ist?

[Matze]

Zitat von Christian Seehase:

irgendwo hatten wird das mit "Text trotz csDropDownList" erst letztens, leider weiss ich jetzt nicht genau wo...

Ich denke, du meinst dieses Thema. Da kam es aber auch zu keiner Lösung.