forms - 模态表格上方的显示消息

Question

使用下面的代码，当我调用MessageDlg时，模态形式消失了。
如何避免？

...     
LoginForm_Create; //FfrmLoginForm created here
try
  if FfrmLoginForm.ShowModal = mrOk then 
  begin
    Fuser := db_authuser( FfrmLoginForm.edtUserName.Text, FfrmLoginForm.edtPassword.text ); 
  if Fuser <> nil then 
    result := 1
  else begin
    MessageDlg('Username or password invalid', mtError, [mbOK], 0);
    result := -2;
  end;
end else //mrCancel
  result := -1;
finally
  LoginForm_Close; // << FfrmLoginForm.Release;
end;
...

Answer 1

ShowModal返回时，将关闭该表单。因此，您观察到的行为。

如果希望对话框显示在模式窗体的顶部，则需要在ShowModal返回之前显示它。通过将mrOK代码移动到模式窗体上将ModalResult设置为mrOK的任何代码中，可以做到这一点。