怎么操作控件组？

Question

我有很多个TCheckBox，每个Name按顺序定义类似为 cbx1, cbx2.....，现在我想要用一个for I:=0 to 12 do 来循环操作这些TCheckBox控件，请教下有什么简单的办法来实现？

Answer 1

  for I := 0 to ComponentCount -1 do
  begin
    if Components[I] is TCheckBox then
    begin
      if (Components[I] as TCheckBox).name = 'xxxxx' then
      begin
        (Components[I] as TCheckBox)的具体操作
      end;
    end;
  end; 

Answer 2

定义一个数组  checkboxs:array of TCheckBox;

Answer 3

同意一楼的。
同时楼主也可以利用TComponent的Tag属性，比如将所有的TCheckBox分为若干组for I := 0 to ComponentCount -1 do begin
  if Components[I] is TCheckBox then begin
    case (Components[I] as TCheckBox).tag of
      1: //do something
      2: //do something
      3: //do something
      ......
    end;
  end;
end; 

Answer 4

  //1. var
  cb:array [0..12] of TCheckBox;  //2.初始化
  cb[0] := cbx0;
  cb[1] := cbx1;
  cb[2] := cbx2;
   ...
   ...
  cb[12] := cbx12;  //3.使用时，可以直接使用cb数组