ComboBox per Hand füllen

[FAlter]

Hi,

ich kürz ihn mal wieder...

Delphi-Quellcode:

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

Mfg
FAlter