MessageDlg 显示在 Form 之前

Question

我有一个 MainForm，它在激活时会调用另一个 Form 来更改应用程序日期（模态、显示、关闭），然后进行一些检查并显示一条消息（如果它适用于检查）。

有没有办法在关闭第一个窗体之后但在显示消息之前显示（绘制）主窗体？

今天：

• MainForm.Activate
• 日期表单使用
• 在桌面（或其他应用程序）上显示 MessageDlg
• MainForm 绘制且可见

我想要这样的东西，但我可以弄清楚如何：

• MainForm.Activate
• 日期表单使用
• MainForm 绘制且可见
• 在 MainForm 上显示 MessageDlg

感谢您的任何想法！

Answer 1

在其 OnActivate 事件中将延迟消息发布到 MainForm，然后在收到并处理该消息时显示 MessageDlg。首次使用后停用 OnActivate 处理程序，否则确保无法再次发布消息。

const
  WM_DISPLAY_MSG = WM_APP + 1000;

type
  TMainForm = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    procedure WMDisplayMsg(var Message: TMessage); message WM_DISPLAY_MSG;
  end;

var
 MainForm: TMainForm;

implementation

{$R *.dfm}

uses
  DateForm;

procedure TMainForm.FormActivate(Sender: TObject);
var
  frm: TDateForm; 
begin
  OnActivate := nil;
  frm := TDateForm.Create(Self);
  try
    frm.ShowModal;
    if (some condition) then
      PostMessage(Handle, WM_DISPLAY_MSG, 0, 0);
  finally
    frm.Free;
  end;
end;

procedure TMainForm.WMDisplayMsg(var Message: TMessage);
begin
  MessageDlg('Message Here', mtInformation, [mbOK], 0);
end;