掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListBox の インデックスを知る方法について (ID：20965)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OnClickで変更を検知するのをやめるとか・・・ ItemIndexと同期をとるように変更するBackItemではなく、 BackItemと同期をとるようにItemIndexを変更する。 type TForm1 = class(TForm) private FBackItem :Integer; procedure SetBackItem(Value:Integer); public property BackItem: Integer read FBackItem write SetBackItem; end; procedure TForm1.SetBackItem(Value:Integer); begin if FBackItem <> Value then begin FBackItem := Value; {//ここでアイテム変更イベント//} OnChangeItemIndexHogeHoge... end; if ListBox1.ItemIndex <> FBackItem then begin ListBox1.ItemIndex := FBackItem; end; end; // リストボックスのクリック procedure TForm1.ListBox1Click(Sender: TObject); begin BackItem := ListBox1.ItemIndex; end; // 挿入ボタンのクリック procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add('3333'); BackItem := ListBox1.Count - 1; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.