CheckBoxの排他的選択の後続 (ID:28274)

名前

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

本文 うんとさん ご説明ありがとうございます．よく分かりました． 今やりたいのは，例えば，CheckBoxが40個あって， 5個ずつ1つのグループ，計8つのグループのCheckBoxを操作することです． で， for i := 1 to 5 do TCheckBox(FindComponent('CheckBox' + IntToStr(1) + '_' + IntToStr(i))).OnClick := CheckBoxClick1; で1個目のCheckBoxグループの処理を； for i := 6 to 10 do TCheckBox(FindComponent('CheckBox' + IntToStr(1) + '_' + IntToStr(i))).OnClick := CheckBoxClick2; で1個目のCheckBoxグループの処理を．．． させたいです． それで，もし，CheckBoxClick(Sender: TObject; i: Integer);が使えれば， iを変化させ，CheckBox1〜5の時はCheckBoxClick1を； CheckBox6〜10の時は，CheckBoxClick2を．．．実行したら良いなと思ったわけです．