Editfeld mit Dropdownmenü

[alzaimar]

Und dann noch dem OnChange-Event der Combobox das hier zuweisen.

Delphi-Quellcode:

procedure TForm13.ComboBox1Change(Sender: TObject);
var
  selstart, sellength, i: Integer;
  edCombobox : TComboBox;

begin
  edComboBox := Sender as TComboBox;

  selstart := edComboBox.SelStart;
  sellength := edComboBox.SelLength;
  edCombobox.Items.BeginUpdate;
  try
    edCombobox.Items.Clear;
    for i := 0 to Memo1.Lines.Count - 1 do
      if (edComboBox.Text = '') or (Pos(edComboBox.Text, StringList_Vorschlaege[i]) = 1) then
        edComboBox.Items.Add(memo1.Lines[i]);
  finally
    edComboBox.items.endUpdate;
  end;
  edComboBox.SelStart := selstart;
  edComboBox.SelLength := sellength;

end;