EXIT

Question

procedure TFlog.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if islogin=false then
begin
showmessage('fclose');
application.Terminate ;
end;
end;procedure TFlog.RzBitBtn1Click(Sender: TObject);
begin
if rzComboBox1.ItemIndex<0 then begin
     messagebox(Handle,'请选择一个正确的用户名！','提示',MB_OK+MB_ICONINFORMATION);
     rzComboBox1.SetFocus;
     Exit;
  end;
end;为什么我运行的时候点rzComboBox1.text是空的时候显示过MESSAGEBOX后就跳到onclose内`如何让他只弹出MESSAGEBOX后让用户继续操作？

Answer 1

问题出在这 if rzComboBox1.ItemIndex<0 then 而你要的结果是rzComboBox1.text = '' 的时候  当然会错啦~~~ 

Answer 2

rzComboBox1是只可选的！
里面有用户名`