Warum kann die ComboBox nicht direkt aufklappen?

[Popov]

Ich kam auf die verrückte Idee, die ComboBox so einzustellen, dass es, wenn es nicht dem Fokus hat, auch nicht den DropDown-Button anzeigt. Der Code sollte einfach sein:

Delphi-Quellcode:

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  ComboBox1.Style := csDropDown;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  ComboBox1.Style := csSimple;
end;

Bei OnEnter wird der Style csDropDown, sonst csSimple. Insoweit funktioniert es auch.

Das Problem ist, dass ich nach OnEnter nicht sofort auf DropDown-Button klicken kann. Tut sich nichts. Erst wenn ich erneut in das Fenster klicke, erst dann funktionert der DropDown-Button. Warum?

[himitsu]

Klicke nochmal in das Edit, dann geht's.

Tja, das Umgestelle scheint wohl den Fokus etwas durcheinanderzubringen.

Du kannst es ja mal mit SetFocus oder Folgendem versuchen.

Delphi-Quellcode:

ComboBox1.Style := csDropDown;
ComboBox1.Perform(CM_RECREATEWND, 0, 0);

Aber so viel erhoffe ich mir davo nicht, denn das Umstellen des Style erzeugt auch ein komplett neues WindowsControl und in dieses hattest du noch niemals reingeklickt. (der OnMouseDown kommt bei dem alten Control an und wo das OnMouseUp ankommt, kann man nur schwer sagen)

Du kannst höchstens mal versuchen den Style direkt über die WinAPI umzustellen und mußt dabei versuchen, daß die ComboBox nicht neu erstellt wird.

Ansonsten verwende doch mal die TComboBoxEx.

[Popov]

Danke, deine Lösung scheint zu funktionieren. Dass hier ein komplett neues WindowsControl erstellt wird, wusste ich nicht.

[Codehunter]

Hallo!

Ich fleddere mal diese Leiche weil ich grade genau das selbe versuche. Allerdings scheint die Lösung unter XE4 nicht mehr zu funktionieren. Das Style ändert sich nicht und es gibt am Ende Memleaks.

Grüße
Cody