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

发布时间：2020-12-15 04:24:50 所属栏目：大数据来源：网络整理

导读：在我的应用程序中,我希望打开一个对话框,这个对话框在某些情况下应立即关闭(在短消息之后). 我试过这个： procedure TForm2.FormActivate(Sender: TObject);begin if SomeCondition then begin ShowMessage('You can''t use this dialog right now.'); close

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

我试过这个：

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!