描述

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

代码

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