اعمال بر روی چند checkbox

[Hsimple11]

با سلام.

میخواستم ببینم کسی راه ساده ای سراغ دارد که یک دستور را برای چند checkbox اعمال کنیم؟
این کد رو پیدا کردم اما آیا راه ساده تری وجود دارد؟


var
i: integer;
Ctl : TControl;
CBX : TCheckBox;
begin

for i:=0 to ControlCount-1 do begin
Ctl:=Controls[i];
CBX := ctl as TCheckBox;
CBX.Checked:=True;

با تشکر...

[dkhatibi]

راه سادش همینه!

[vcldeveloper]

اون کد بالا در صورتی که روی فرم چیزی غیر از Checkbox داشته باشید، جواب نمیده، چون type کنترل را چک نمیکنه. باید می نوشتید:


for i := 0 to MyForm.ControlCount-1 do
if MyForm.Controls[i] is TCheckBox then
TCheckBox(MyForm.Controls[i]).Checked := True;