Question

delphi 动态数组的onclick事件

生成一个动态TCheckBox数组后，点击任意一个时，字体颜色也跟着变化，如何实现
如果定义成TRadioGroup，选里面的任意一个，字体也跟着变换，这如何做呢？

Answer 1

私有或者公有，友元声明区：

checkboxList:array of tcheckbox;
procedure CheckBoxClick(sender:TObject);

Procedure Tform1.createCheckBoxList(nCount:integer);
var I:integer;
begin
setlength(checkboxlist,nCount);
for I:=1 to nCount do
begin
checkBoxList[I-1]:=Tcheckbox.create(self);
......//这里初始化checkbox
checkBoxList[I-1].onClick:=CheckBoxClick;
//这里是关键部分
end;
end;

procedure Tform1.CheckBoxClick(sender:TObject);
var TmpCheckBox:TCheckBox;
begin
if sender is TCheckBox then
begin
TCheckBox(Sender).Color:=x;//这个x为颜色值，请自行代换
end;
end;

Answer 2

先写好一个ONCLICK事件，然后动态生成TCHECKBOX的时候，把ONCLICK事件赋给他。