Image1の上にコントロールをクリエートしたい (ID:21351)

名前

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

本文 以前、この手の処理を書いたことがあります。Create する CheckBox のそれぞれの Tag プロパティでナンバリングする方法でしたけど、 case (Sender As TCheckBox).Tag of ....などで個別判定していました。 また、同じ動作なら procedure TForm1.LabelClick(Sender: TObject); begin if (Sender as TLabel).Font.Color = clBlack then (Sender as TLabel).Font.Color := clYellow else if (Sender as TLabel).Font.Color = clYellow then (Sender as TLabel).Font.Color := clBlack; end; .....すべてのラベルに、このハンドラを設定したり...。 これで解りますでしょうか？