Question

delphi的TCheckBox控件的用法

比如，TCheckBox控件名为：chk1
再添加一个edit1控件：edt1
怎么现实当chk1的checked为True时，edt1的enabled为ture。
checked 为false时，enabled也为false。

是放在chk1的OnClick事件中实现，还是怎么做合理？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
下面是我写的代码：
procedure TForm1.chk1Click(Sender: TObject);
begin
if chk1.Checked:= True then
edt1.Enabled:= True;
if chk1.Checked:= False then
edt1.Enabled:= False;
end;

可一直提示报错：type of expression must be boolean

求教，谢谢。

Answer 1

从代码看，是 if 的语法错误：在 delphi 语法中，:= 操作符用于赋值，= 操作符用于判断。

if chk1.Checked:= True then 应该是

if chk1.checked=True then

或是  

if chk1.Checked then

完成问题描述中的功能，代码可以简写为：

procedure TForm1.chk1Click(Sender: TObject);
begin
  edt1.Enabled := chk1.Checked;
end;