Tagプロパティーの使い方 (ID:7006)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 私の場合はイベント処理を一つで複数のコンポーネントの処理を分ける時に使用します。 Buttonを二つ用意して Button1.Tag := 0; Button2.Tag := 1; Button1.OnClick = Button1Click Button2.OnClick = Button1Click procedure TForm1.Button1Click(Sender: TObject); begin case TButton(Sender).Tag of 0://ここに振り分け処理を記述 1: end; end;