代码如下:
procedure TForm1.CheckBox1Click(Sender:TObject);
begin
if edit1.text=''
then
begin
application.messagebox('请先输入内容再打勾','提示',MB_OKCANCEL);
checkbox1.checked:=false;
end;
end;
...全文
1244打赏收藏
application.messagebox 弹出后,为什么要连续2次确认才能执行后面的语句?
代码如下: procedure TForm1.CheckBox1Click(Sender:TObject); begin if edit1.text='' then begin application.messagebox('请先输入内容再打勾','提示',MB_OKCANCEL); checkbox1.checked:=false; end; end;