eigene ComboBox

[stahli]

Ich habe das Problem jetzt über einen Umweg gelöst...

Eine CompoBox (Style=csDropDownList) wird hinter einem Edit-Feld versteckt und softwareseitig bei Bedarf aufgeklappt:

Delphi-Quellcode:

procedure TFormTurniere.EditMouseEnter(
  Sender: TObject);
begin
  if Edit.Text = '' then BitBtnOpenClick(Self);
end;

procedure TFormTurniere.BitBtnOpenClick(Sender: TObject);
begin
  ComboBox.Left := Edit.Left;
  ComboBox.Width := Edit.Width;
  ComboBox.Top := Edit.Top;
  ComboBox.Height := Edit.Height;
  ComboBox.DroppedDown := True;
end;

Das ist optisch sehr ansprechend und für den Nutzer intuitiv, wenn auch etwas aufwändig umzusetzen...

stahli