procedure TForm1.Button1Click(Sender: TObject);
begin
  checkbox1.State:=cbChecked;
  checkbox2.State:=cbchecked;
  checkbox3.State:=cbchecked;
  checkbox1.State:=cbUnchecked  ;
  checkbox2.State:=cbUnchecked ;
  checkbox3.State:=cbUnchecked;
end;

解决方案 »

  1.   

    checkbox.state:=cbchecked;or cbunchecked;
    土是土了点,但很有效
      

  2.   

    把所有CheckBox 放在一个GroupBOX 中,
    然后用循环设置每个组件的checked
     for i:=0 to GroupBox1.componentCount do
        GroupBox1.Components[i].Checked
      

  3.   

    如果是全部选中之后或全部选中之前:
    checkbox1.checked:=not checkbox1.checked;
      

  4.   

    放在一个GroupBox中的方法挺好,我现在也用上了。谢谢to(天佑)
      

  5.   

    同天佑,要是清空只要改checked为unchecked就这样