Question

请问高手：在delphi中，在Checkbox已经勾选状态下如何让使Checkbox有效或无效？

在程序打开时，Checkbox已经勾选状态下，如何让勾选生效或无效？如果没有勾选就不管它；而且Checkbox勾选状态不能改变（下次打开程序时无论是勾选或没有勾选，状态不能改变），代码该如何写？
具体情况如下：
DayOfWeek(Date)=5 //在每个星期五的时候，Checkbox1为True时，Checkbox1生效，Checkbox1为False时，Checkbox1无效，但无论勾选或未勾选原来的勾选状态不能改变。
谢谢那位高手提供以上（逻辑关系）代码!
我搞错了！应该是这样：
当Checkbox1.checked:=True时，DayOfWeek(Date)=5 //在每个星期四的时候，Checkbox2.checked:=True生效，星期一至三、五、六、七时和Checkbox1.checked:=False时，Checkbox2无论勾选或未勾选均无效，但无论勾选或未勾选原来的勾选状态不能改变。 问题我已经解决如下：
begin
if DayOfWeek(date)=5 then
if Checkbox1.Checked=true then
if checkbox2.checked=true then
CheckBox3.Checked:=True;
end;

Answer 1

在checkbox的Onclick事件中判断checkbox的checked属性即可。
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if Self.CheckBox1.Checked then
ShowMessage('你选中了checkbox')
else
ShowMessage('你取消了checkbox');
end;

实际上，当你选中checkbox的时候，就是触发OnClick事件，判断Checked是否为true就可以知道是否选中checkbox了

Answer 2

其实我不是很理解你的意思， 为什么要这么做呢。
if checkbox1.checked then begin
checkbox1.enabled := true;
end else begin
checkbox1.enabled := false;
end;

这样吗？加在formload的时候。

Answer 3

读取数据的时候加一个事件即可