描述

一个复选框的示例。这个复选框会有三个状态。程序运行时，会选中该复选框。当用户单击它时，未选中该复选框。再次单击它，复选框将变灰。

代码

 procedure TForm1.FormCreate(Sender: TObject);
begin
   CheckBox1.AllowGrayed := True;
   CheckBox1.State := cbChecked;
end;