Bei Klick auf ComboBox geht erst mal gar nix!

[Armageddon]

So ich bins mal wieder,

habe auf meinem Form 2 ComboBoxen.

ComboBox1 und ComboBox2.

Jetzt habe ich das so gemacht das wenn ich mit der TAB-Taste durch meine Edit-Felder Tabe und in die erste ComboBox komme diese aufgerollt wird. Und zwar so:

Delphi-Quellcode:

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  SendMessage(ComboBox1.Handle, CB_ShowDropDown, 1, 0);
end;

das klappt auch ganz gut und damit ich mit Tab in die nächste ComboBox komme habe ich das eingefügt. Weil wenn ich nix mache dann komm ich mit Tab einfach nicht weiter und häng in der ComboBox bis ich mit den Corsurtasten halt mal nen Wert auswähl. Aber das ja doof und sieht nicht so schön aus!

also gelöst:

Delphi-Quellcode:

procedure TForm1.ComboBox1.KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #9 then ComboBox2.SetFocus;
end;

und voila er macht die ComboBox1 zu und springt in die zweite ComboBox.

Nun ist mir aber aufgefallen das wenn ich mit der Maus in die Combo's klicke das beim ersten Klick erstmal gar nix passiert und beim zweiten sich das Combo endlich mal aufrollt. Hmmm also schon wieder ein Schönheitsfehler!

Hoffe mir kann einer folgen und mir dabei helfen.

Gruß Arma.

[Luckie]

Hat eine Combobox kein OnClick-Ereigniss?

[Matze]

Da schließ ich mich Lucky an.
Man kann eine ComboBox auch mit der Maus öffnen, du musst das doch nicht unbedingt mit der Tastatur bewerkstelligen, ich meine das mit den TabStops.

Gruß Matze

[Luckie]

Nein er soll in das OnClick das:

Delphi-Quellcode:

SendMessage(ComboBox1.Handle, CB_ShowDropDown, 1, 0);

schreiben.
Ich halte es aber selten für gut, das standard Verhalten von Windows zu ändern.

[Armageddon]

Hi.

@Matze: Ich will es aber so haben. :mrgreen: mit der Maus und der Tastatur.

@Luckie: Das habe ich schon probiert gehabt. Aber kommt genau auf das gleiche raus das ich zweimal draufklicken muß das die ComboBox aufgeht.

Gruß Markus.