Hallo,
hiermit kann man auf Wunsch eine ComboBox einfach auf- oder zuklappen.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
//AUF
begin
SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0);
end;
procedure TForm1.Button3Click(Sender: TObject);
//ZU
begin
SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 0, 0);
end;
Grüsse, Daniel
[edit=Phoenix]Typo in Titel korrigiert. Mfg, Phoenix[/edit]