发送个性化消息异常：PostMessage致主窗体最小化问题

问题背景 #

我创建了一个双窗体应用：主窗体自动创建，子窗体按需创建。定义了自定义消息SM_MY_MESSAGE，用于从非模态显示的子窗体向主窗体传递参数，主窗体已为此消息定义处理函数，发送消息后子窗体设置为Free并关闭。

遇到的问题：

• 使用PostMessage发送消息时，主窗体意外最小化，且消息处理函数未正常执行（指定提示框未弹出）；
• 使用SendMessage时，消息能被处理，但子窗体需等提示框关闭后才会关闭，不符合立即关闭的需求；
• 补充测试：在SMMYMESSAGE处理函数中调用DoMyAction前添加ShowMessage输出WParam，主窗体仍最小化，新增的提示框未显示，但DoMyAction的提示框却出现了，说明PostMessage确实发送了消息但行为异常。

需要实现：消息发送后立即返回（子窗体立即关闭）且不导致主窗体最小化。

相关代码 #

MainFormUnit.pas #

unit MainFormUnit;

...

const
  SM_MY_MESSAGE = WM_USER + 1;

type TMyAction = (ma0, ma1);

type
  TMainForm = class(TForm)
  ...
  procedure DoMyAction(Action: TMyAction);
  procedure SMMYMESSAGE(var Msg: TMessage); message SM_MY_MESSAGE;
  procedure ShowChildForm;
  ...
end;

var
  MainForm: TMainForm;

implementation

uses
  ChildFormUnit;
...

procedure TMainForm.SMMYMESSAGE(var Msg: TMessage);
begin
  DoMyAction(TMyAction(Msg.WParam));
end;

procedure TMainForm.DoMyAction(Action: TMyAction);
begin
  ShowMessage(Format('The selected action is: %d', [Ord(Action)]));
end;

procedure TMainForm.ShowChildForm;
var
  ChildForm: TChildForm;
begin
  ChildForm := TChildForm.Create(Self);
  ChildForm.Show;
end;

ChildFormUnit.pas #

unit ChildFormUnit;

...
const SM_MY_MESSAGE = WM_USER + 1;

type
  TChildForm = class(TForm)
  ...
  procedure SendActionToMain(ActionNum: Integer);
  procedure ChildFormClose(Sender: TObject; var Action: TCloseAction);
  ...
end;

implementation

uses MainFormUnit;
...
procedure TChildForm.SendActionToMain(ActionNum: Integer);
begin
  PostMessage(MainForm.Handle, SM_MY_MESSAGE, ActionNum, 0);
  close;
end;
...
procedure TChildForm.ChildFormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

问题原因分析 #

1. PostMessage句柄失效：子窗体关闭时，主窗体的Handle可能因窗口状态变化临时重创建，导致PostMessage发送到了无效的句柄，引发异常行为；
2. 模态对话框干扰异步消息：在PostMessage的响应函数中直接调用ShowMessage（模态对话框），会打乱窗口消息队列的处理顺序，导致主窗体状态异常。

解决方案 #

方案1：使用Application句柄+异步队列处理（推荐） #

步骤1：修改主窗体消息处理逻辑

放弃直接绑定message关键字的消息处理，改为重写WndProc监听Application消息，同时用Application.QueueAsyncCall延迟执行模态对话框：

// MainFormUnit.pas中修改TMainForm类定义
type
  TMainForm = class(TForm)
  ...
  procedure DoMyAction(Action: TMyAction);
  procedure ShowChildForm;
  procedure WndProc(var Msg: TMessage); override; // 添加这行
  ...
end;

// 实现部分替换原SMMYMESSAGE方法
procedure TMainForm.WndProc(var Msg: TMessage);
begin
  inherited;
  if Msg.Msg = SM_MY_MESSAGE then
  begin
    // 用异步队列延迟处理，避免模态窗口干扰消息队列
    Application.QueueAsyncCall(
      procedure(Action: TMyAction)
      begin
        DoMyAction(Action);
      end,
      TMyAction(Msg.WParam)
    );
  end;
end;

步骤2：修改子窗体消息发送目标

将消息发送到Application.Handle，避免主窗体Handle变化导致的失效问题：

// ChildFormUnit.pas中修改SendActionToMain方法
procedure TChildForm.SendActionToMain(ActionNum: Integer);
begin
  PostMessage(Application.Handle, SM_MY_MESSAGE, ActionNum, 0);
  Close;
end;

方案2：SendMessage配合异步关闭子窗体 #

如果需要保留SendMessage的同步消息特性，同时让子窗体立即关闭，可以将关闭操作放到异步队列：

// ChildFormUnit.pas中修改SendActionToMain方法
procedure TChildForm.SendActionToMain(ActionNum: Integer);
begin
  SendMessage(MainForm.Handle, SM_MY_MESSAGE, ActionNum, 0);
  // 异步执行关闭，不等待模态对话框
  Application.QueueAsyncCall(
    procedure(Form: TForm)
    begin
      Form.Close;
    end,
    Self
  );
end;

效果验证 #

采用方案1后，子窗体调用SendActionToMain会立即关闭，主窗体不会出现最小化异常，DoMyAction中的提示框能正常弹出，完全符合需求。

内容的提问来源于stack exchange，提问作者yonni