ComboBox mit extra Button

[Nersgatt]

Moin,

ich hab ein Problem und ich finde nicht so wirklich einen Einstieg.
Ich möchte eine Komponente ableiten. Hauptsächlich soll es eine TcxLookupComboBox (DevExpress) sein. Neben dem DropDown-Pfeil soll noch ein zusätzlicher Button sein. Beim Klick auf den Button soll die Eigentschaft EditValue der ComboBox auf Null gesetzt werden. Das ist eigentlich schon alles.
Der Button muss nicht unbedingt neben dem Pfeil sein. Ich könnte mir auch vorstellen, ihn in die Textarea zu machen. Wichtig ist, dass der User ein optisches Element hat, womit er das Ding auf Null setzen kann. Auf Backspace oder Entf zu drücken (beides ist bei mir bereits möglich) bekommen meine User leider nicht auf Reihe... ist wohl zuviel verlangt

Ich finde nicht so wirklich einen Einstieg, wie ich das löse. Ich könnte eine Ableitung von TWinControl machen. Dann dynamisch die Combobox und den neuen Button erstellen. Hätte den Nachteil, dass ich praktisch alle Eigenschaften der Combobox pratisch "durchreichen" muss.
Ich könnte auch ne Ableitung von TcxLookupCombobox machen und versuchen, mich ins malen des Controls einzuklinken. Und dabei halt meinen extra Button zu zeichen. Könnte aber reichlich kompliziert werden, oder?

Prinzipell möchte ich mit der ursprünglichen Combobox kompatibel bleiben, damit ich alle Comboboxen in meiner Anwendung einfach ersetzen kann.

Wie würdet ihr das angehen?

[pustekuchen]

Ich würd einfach eine neue Komponente erstellen mit dem Button und diese Komponente dann einsetzen. Oder seh ich grade nicht dein Problem?

[Nersgatt]

Wovon würdest Du denn die neue Komponente ableiten?

[stahli]

Als einfache Lösung ein Panel und darauf die ComboBox und daneben Deinen Button. Deine Komponente wäre dann aber halt ein Panel-Nachfolger...

[ChrisE]

Hallo,

oder du schaust dir an wie TLabeledEdit das macht (VCL-Komponente aus Edit und Label).

Da kann man sich sicher auch einiges "abschauen" für Dein Problem.

Gruß, Chris

[Nersgatt]

Ich hab jetzt für mich folgende Lösung gefunden:
das TcxLookupCombobox hat ne Property "ButtonGlyph". Damit kann man den DropDown-Pfeil ändern. Nimmt man ein Glyph, was größer ist als normal, wird der Button auch automatisch größer.
Also habe ich ein Glyph genommen, was doppelt so breit ist, so dass es aussieht, als wären das 2 Button. Dann noch MouseDown überschrieben und x und y ausgewertet, um zu entscheiden, ob der User aufklappen will, oder leeren will. Das "originale" Aufklappen verhindere ich und kümmer mich selbst ums Aufklappen. Fertig!

[uligerhardt]

Das können die DevEx-Edits von Haus aus:

Delphi-Quellcode:

var
  btn: TcxEditButton;
begin
  btn := cxLookupComboBox1.Properties.Buttons.Add;
  btn.Kind := bkText;
  btn.Caption := 'X';
end;

[Nersgatt]

Zitat von uligerhardt:

Das können die DevEx-Edits von Haus aus:

Super! Da werde ich meine Lösung noch mal ändern. Das ist ja viel sauberer.
Danke!

[pustekuchen]

Zitat von stahli:

Als einfache Lösung ein Panel und darauf die ComboBox und daneben Deinen Button. Deine Komponente wäre dann aber halt ein Panel-Nachfolger...

Genau das meinte ich