application.messagebox 弹出后，为什么要连续2次确认才能执行后面的语句？

Question

代码如下：
procedure TForm1.CheckBox1Click(Sender:TObject);
begin
if edit1.text=''
   then
    begin
    application.messagebox('请先输入内容再打勾','提示',MB_OKCANCEL);
    checkbox1.checked:=false;
    end;
end;

Answer 1

CheckBox1Click这个事件本身就会修改Checked这个属性.....你把MessageBox那句话去掉..估计也差不多...

Answer 2

应该是Checked属性改变的时候会触发CheckBox1Click的执行~~~

Answer 3

// checkbox1.checked:=false;
这样就ok了 :)

Answer 4

看错了。if checkbox1.checked And edit1.text='' then
    begin
    application.messagebox('请先输入内容再打勾','提示',MB_OKCANCEL);
    checkbox1.checked:=false;
    end;
end;