delphi - 如何在 delphi 中向消息处理程序添加两条消息？

Question

在我的表单声明中，我做了一个消息处理程序:

procedure MessageHandler(var Msg:TMessage);Message MSG_ACCESS;

const
MSG_ASYNC = $BAD;
MSG_ACCESS = $BEEF;

在消息处理程序中，当我检查消息时，它工作正常，但如果我像这样更改声明:

procedure MessageHandler(var Msg:TMessage);Message MSG_ACCESS or MSG_ASYNC;

我发送的所有消息都没有得到处理。

如何使用两条消息实现？

Answer 1

只需创建两个消息处理程序来调用共享的一个。

Procedure MessageHandler(var Msg:tMessage);
begin
  // your code here
end;

Procedure MsgAccessHandler(var Msg:Tmessage); message MSG_ACCESS;
begin
  MessageHandler(Msg);
end;

Procedure MsgAsyncHandler(Var Msg:tMessage); message MSG_ASYNC;
begin
  MessageHandler(Msg);
end;