掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ComboBoxの一つ一つの行に値を持たせるには？ (ID：20251)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じです。 この他にも Objects プロパティを使う方法等があります。 type TForm1 = class(TForm) ComboBox1: TComboBox; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure ComboBox1Click(Sender: TObject); private FMsgList: TStringList; procedure UpdateComboList; public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin FMsgList:= TStringList.Create; UpdateComboList; end; procedure TForm1.FormDestroy(Sender: TObject); begin FMsgList.Free; end; procedure TForm1.UpdateComboList; begin ComboBox1.Items.Clear; FMsgList.Clear; ComboBox1.Items.Add('1'); FMsgList.Add('壱'); ComboBox1.Items.Add('2'); FMsgList.Add('弐'); ComboBox1.Items.Add('3'); FMsgList.Add('参'); end; procedure TForm1.ComboBox1Click(Sender: TObject); begin if (ComboBox1.ItemIndex >= 0) then ShowMessage(FMsgList[ComboBox1.ItemIndex]); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.