Combobox mit Multiselect

[marabu]

Gut dass wir nicht mehr über die ComboBox reden müssen, die ListBox gefällt mir irgendwie besser. Dein Wunsch sie auf und zu klappen zu können deutet darauf hin, dass die Suchwörter nur während der Auswahl sichtbar sein sollen. Warum öffnest du nicht einfach einen Dialog (mein Favorit), der die ListBox und zwei Schalter (OK und Abbrechen) aufnimmt?

Wenn du überhaupt nicht vom Klappmechanismus abzubringen bist, dann gefällt dir vielleicht das hier:

Delphi-Quellcode:

procedure TDemoForm.ListBoxEnter(Sender: TObject);
begin
  ListBox.Height := ListBox.Constraints.MaxHeight;
end;

procedure TDemoForm.ListBoxExit(Sender: TObject);
begin
  ListBox.Height := ListBox.Constraints.MinHeight;
end;

Hierbei wird die ListBox automatisch maximiert, wenn sie den Focus erhält und minimiert wenn sie ihn verliert. Während der Entwurfsphase legst du MinHeight und MaxHeight fest, setzt IntegralHeight auf true und sorgst dafür, dass die ListBox in der Z-Order vor den anderen Controls liegt.

marabu