delphi – 打开后如何关闭模态窗体？

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

我试过这个：

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事件中,但结果是一样的.

为什么这不工作？

procedure TForm2.FormActivate(Sender: TObject);
begin
  Showmessage('You can''t use this dialog right now.');
  Postmessage(Self.Handle,wm_close,0);
end;