ComboBox Auf- oder Zuklappen

[Daniel B]

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 :hi:

[edit=Phoenix]Typo in Titel korrigiert. Mfg, Phoenix[/edit]