非窗口类中的自定义消息 - 需要默认处理程序？

Question

我有一个类（TObject）：

private
  FHwnd : HWND;
  procedure HandleMyMessage(var Message : TMessage); message TH_MYMESSAGE;

在哪里TH_MYMESSAGE = WM_USER + 1

在类构造函数中：

FHwnd := AllocateHWND(HandleMyMessage);

接收对FHwnd 的引用的唯一对象是私有自定义TThread（在此类中创建），它发布的唯一消息是TH_MYMESSAGE。我的理解是过程声明中的message 指令将其处理限制为仅TH_MYMESSAGE。

这在测试中运行良好，但在集成到更大的应用程序后，我收到反馈，HandleMyMessage 也正在触发其他消息（具有明显的不良结果）。

这很容易通过在HandleMyMessage 中添加if Message.Msg <> TH_MYMESSAGE then Exit; 来纠正。我的问题是：为什么会这样？

我最好的猜测是 AllocateHWND 使 HandleMyMessage 等同于 DefWndProc 尽管它具有 message 指令。有没有正确的方法来实现我所缺少的？

Answer 1

嗯，当然可以。 AllocateHWnd 接受TWndMethod 作为创建窗口的窗口过程。我猜，这种混乱是因为编译器接受了messsage 指令。别说：

private
  FHwnd : HWND;
  procedure HandleMyMessage(var Message : TMessage);

..

procedure TMyClass.HandleMyMessage(var Message: TMessage);
begin
  case Message.Msg of
    TH_MYMESSAGE: //
  end;
  Message.Result := DefWindowProc(FHWnd, Message.Msg, Message.WParam, Message.LParam);
end;

---

编辑：（对评论的回应）。要在创建实用程序窗口的类上处理消息，您可以将消息从 AllocateHWnd 创建的窗口路由到您的类：

private
  FHwnd : HWND;
  procedure HandleMyMessage(var Message : TMessage);
  procedure THMyMessage(var Message: TMessage); message TH_MYMESSAGE;

..

procedure TMyClass.HandleMyMessage(var Message: TMessage);
begin
  case Message.Msg of
    TH_MYMESSAGE: Dispatch(Message);
  end;
  Message.Result := DefWindowProc(FHWnd, Message.Msg, Message.WParam, Message.LParam);
end;

procedure TMyClass.THMyMessage(var Message: TMessage);
begin
  //
end;