我有30个checkbox怎么才能让它一次全部选择,一次全部不选?有什么简单循环的方法?

解决方案 »

  1.   

    var
      i : integer;
    begin
      for i := 0 to ComponentCount - 1 do
        if Components[i] is TCheckBox then
          TCheckBox(Delocalize).Checked := True;
    end;
      

  2.   

    var
      i : integer;
    begin
      for i := 0 to ComponentCount - 1 do
        if Components[i] is TCheckBox then
          TCheckBox(Components[i]).Checked := True;
    end;
      

  3.   

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

  4.   

    for i:=1 to ControlCount-1 do
        begin
          if copy(Controls[i].name,1,5)='check' then
             ..................
        end;
      

  5.   

    小女生家家的,
    信誉这低呀Tcheckbox(findcomponent(chenkbox+inttostr(i))).checked:=true;
      

  6.   

    要循环滴...
    For I:=0 to controlcount-1