掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListBox の インデックスを知る方法について (ID：20958)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i, Index, Data: Integer; s: string; begin with TListBox(Sender) do begin Index := ItemAtPos(Point(X, Y), True); if Index >= 0 then begin Data := Integer(Items.Objects[Index]); case Data of 0: s := '初めてクリック'; 1: s := '違う項目を選択'; 2: s := '同じ項目を選択'; end; Memo1.Lines.Add(Format('%d %d %s', [Index, Data, s])); for i:=0 to Pred(Items.Count) do Items.Objects[i] := TObject(1); Items.Objects[Index] := TObject(2); end; end; end; 未選択時の追加…AddObject('追加項目', TObject(0)); 既選択時の追加…AddObject('追加項目', TObject(1));
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.