Delphi实现checkbox全选反选

在百度帖吧Delphi吧，看到有朋友提到“求助用一个按钮全部选择checkbox的方法”，现将实现流程分享如下。

工具/原料

• Delphi各大版本都可以

方法/步骤

1. 打开Delphi，创建一个App。一个面板，三个可选项，三个按钮。

   

2. 按下F9，编译程序。点击“全选”按钮，免去逐个单选之苦，效果如图。

   代码如下：

   procedure TForm1.btn1Click(Sender: TObject);var i :Integer;begin   for i := 0 to pnl2.ControlCount - 1 do   begin       if (pnl2.Controls[i].ClassType = TCheckBox) then       begin           TCheckBox(pnl2.Controls[i]).Checked := True;       end;   end;end;注：pnl2为面板的名称。

3. 

4. 再按下“全不选”按钮，效果如图。

   代码如下：

   procedure TForm1.btn1Click(Sender: TObject);var i