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;
begin
checkbox1.State:=cbChecked;
checkbox2.State:=cbchecked;
checkbox3.State:=cbchecked;
checkbox1.State:=cbUnchecked ;
checkbox2.State:=cbUnchecked ;
checkbox3.State:=cbUnchecked;
end;
土是土了点,但很有效
然后用循环设置每个组件的checked
for i:=0 to GroupBox1.componentCount do
GroupBox1.Components[i].Checked
checkbox1.checked:=not checkbox1.checked;