combobox アイテム追加 (ID:37244)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じ？ procedure TForm3.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then begin if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then begin ComboBox1.Items.Add(ComboBox1.Text) end; end; end;