如何遍历一个FORM中动态创建的checkbox控件群

Question

for i := 0 to Self.ComponentCount - 1
  if Self.Components[i] is TCheckBox then
  begin
    // how do do
  end;

Answer 1

1.先定义一个CHECKBOX的数组
2.之后是FOR...TO...
 //加入处理过程

Answer 2

procedure TForm1.DoCheckBox;
var
  i:integer;
  tl:TList;
  tc:TCheckBox;
begin
  tl := TList.create;
  try
    self.GetTabOrderList(tl);    for i := 0 to tl.count - 1 do
    begin
      tc := TL[i];
      if (tc is TCheckBox) then
         //do something       end;
    end;  finally
    tl.free;
  end;end;