ComboBox per Hand füllen

[Fussball-Robby]

Wenn man dann aber per Items[ItemIndex] darauf zugreifen will, ist kein Item ausgewählt, jedoch kann man den Code ohne weiteres noch durch eine Zeile erweitern:

Delphi-Quellcode:

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with TComboBox(Sender) do
    if Key = VK_RETURN then
    begin
      if Items.IndexOf(Text) < 0 then
        Items.Add(Text);
      ItemIndex := Items.IndexOf(Text);
    end;
end;