combobox アイテム追加

解決

---

フォーム上でcomboboxのアイテムを追加できるようにしたいと思っています。

たとえば、１つTEDITを用意しておいて、そこにcomboboxに追加したいアイテムの内容を入力、そしてボタンをクリックすると、新しくcomboboxにアイテムが追加されるというものです。

やり方が分からず困っています。ご存知のかたいますか？


delphi version6です

編集 削除

---

ボタンのクリックイベントで、
コンボボックスのItemsプロパティのAddメソッドで追加するのはいかがですか？

編集 削除

---

こんな感じ？

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;

編集 削除

---

ボタンを押した場合ですね。

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text <> '' then
    ComboBox1.Items.Add(Edit1.Text);
end;

編集 削除

---

ありがとうございます。早速実行しましたら、itemをcomboboxに追加することはできたのですが、一度プログラムを閉じると、リストの内容が消えてしまいます。comboboxのプロパティのTStringのところに、書き込むと同じように、プログラムが終了しても、打ち込んだitemがなくならない方法はないのでしょうか？（以下が、私が書いたコードです。deleteボタンで、itemが消せるようにしました）

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;
    if Key = VK_DELETE then
      begin
       ComboBox1.Items.Delete(ComboBox1.itemindex)
      end;
end;

編集 削除

---

FormのCloseでTextに保存しておいて、Createで読み込みます。

procedure Form1.FormCreate(Sender: TObject);
begin
  if FileExist('hogehoge.txt') then
    ComboBox1.Items.Loadfromfile('hogehoge.txt')
  else
    ComboBox1.Items.Clear;
end;

procedure Form1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ComboBox1.Items.Count > 0 then
    ComboBox1.Items.Savetofile('hogehoge.txt');
end;

他には、データーベースに保存するとか、いろいろ方法はあります。
調べてください。

編集 削除

---

テキストファイルにセーブする方法で使用いたしました。いろいろとありがとうございました。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。

返信する