掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックスに項目追加時にイベント取れます? (ID:3274)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
仮想リストボックスにするという手法もありますね。 TListBox の Styleプロパティを lbVirtual にして、 OnDateイベントで、TStringList とリンクさせます。 procedure TForm1.SListChange(Sender: TObject); begin if ListBox1.Count < SList.Count then begin //追加されたときの処理 end; ListBox1.Count := SList.Count; end; procedure TForm1.FormCreate(Sender: TObject); begin SList := TStringList.Create; SList.OnChange := SListChange; end; procedure TForm1.FormDestroy(Sender: TObject); begin SList.Free; end; procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer; var Data: String); begin Data := SList[Index]; end; procedure TForm1.Button1Click(Sender: TObject); begin SList.Add('Text') end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.