mrok 为什么点击确定按钮两次才执行

Question

procedure Txueshengadd_form.Button1Click(Sender: TObject);
begin
 if edit1.Text='' then
 begin
 showmessage('学号不能为空，请输入');
  edit1.SetFocus;
  exit ;
 end
 else
 button1.ModalResult:=mrok;
end; 
这样设置要点击两次button1才执行代码吧,能否设置点击一次就行的

Answer 1

楼主想要什么效果?这样可以啊

Answer 2

我想问能不能设置点击一次就把代码执行完跳到另一个窗口,点两次太麻烦