delphi - 如何在打开模态表单后立即将其关闭？

Question

我希望从我的应用程序中打开一个对话框，在某些情况下该对话框应立即关闭(在一条短消息之后)。

我已经尝试过这个:

procedure TForm2.FormActivate(Sender: TObject);
begin
  if SomeCondition then
  begin
    ShowMessage('You can''t use this dialog right now.');
    close;
    modalresult := mrCancel;
  end;
end;

但对话框仍然打开。我也尝试过将代码放在OnShow事件中，但结果是一样的。

为什么这不起作用？

Answer 1

发布WM_CLOSE消息而不是直接调用close；

ShowMessage('You can''t use this dialog right now.');
PostMessage(Handle, WM_CLOSE, 0, 0);
modalresult := mrCancel;