窗体里的控件循环

[liuxingstar]

窗体8个 CheckBox 控件 从1到8

我想循环判断 那个checked＝true

[gobiz]

for i:=0 to ComponentCount-1 do
begin
if (Components[i] is TCheckBox) and (Components[i] as TCheckBox).Checked then
begin
//Do Something……
end;
end;

[confucius]

for i := 1 to 8 do
if TCombobox(FindComponent('cbx' + IntToStr(i))).Checked then
......

[confucius]

写错了，把TCombobox换成TCheckBox