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.