如何在delphi中向messagehandler添加两条消息？

Question

在我的表单声明中,我做了一个messagehandler:

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;