掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListBox の インデックスを知る方法について (ID:20956)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
リストボックスの中身を格納するとき、 with ListBox1.Items do begin Add('Delphi1'); Add('Delphi2'); Add('Delphi3'); Add('Delphi4'); Add('Delphi5'); Add('Delphi6'); Add('Delphi7'); end; ではなく、 with ListBox1.Items do begin AddObject('Delphi1', TObject(80)); AddObject('Delphi2', TObject(90)); AddObject('Delphi3', TObject(100)); AddObject('Delphi4', TObject(120)); AddObject('Delphi5', TObject(130)); AddObject('Delphi6', TObject(140)); AddObject('Delphi7', TObject(150)); end; のようにObjectも指定。 リストボックスのOnClickイベントで、選択された項目のObjectの内容を表示する場合、 procedure TForm1.ListBox1Click(Sender: TObject); begin with ListBox1 do if ItemIndex >= 0 then Label7.Caption := IntToStr(Integer(Items.Objects[ItemIndex])); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.