Delphi：如何从PostMessage接收自定义Windows消息？

概述我有两个应用程序需要通过PostMessage进行通信(排除了SendMessage,因为我需要让第二个应用程序能够在被调用时输出到Excel. 到目前为止,应用程序1调用应用程序2,确保它是打开的,当它被启用时,应用程序1被设置为禁用. 当用户完成应用程序2时,我需要将消息发送回Applciation 1以允许它解锁. 我在每个应用程序中注册了相同的Windows消息： const MyMe 我有两个应用程序需要通过PostMessage进行通信(排除了SendMessage,因为我需要让第二个应用程序能够在被调用时输出到Excel.

到目前为止,应用程序1调用应用程序2,确保它是打开的,当它被启用时,应用程序1被设置为禁用.

当用户完成应用程序2时,我需要将消息发送回Applciation 1以允许它解锁.

我在每个应用程序中注册了相同的Windows消息：

const  MyMessage = 'My-Message';var  MyMessageID: cardinal;procedure TMF.FormCreate(Sender: TObject);begin  MyMessageID := RegisterWindowMessage(MyMessage);end;

在应用程序2中,我可以使用以下命令将消息发布到应用程序1

targetHandle := FinDWindow(Pchar('TMF'),Pchar('Send Test'));...if PostMessage(targetHandle,(MyMessageID),0) then...

我不明白的是我如何在应用程序1中声明消息处理程序.

如果我使用标准的windows消息,例如WM_copYDATA,我会声明一个过程

procedure WMcopyData(var Msg: TWMcopyData); message WM_copYDATA;

但是因为我无法尽早声明MyMessageID而失败了.

也许是因为这是星期五下午,但我错过了什么？

解决方法 您不能使用message关键字,因为在编译时不知道消息常量.相反,你必须覆盖WndProc：

procedure WndProc(var Message: TMessage); overrIDe;....procedure TMF.WndProc(var Message: TMessage);begin  inherited;  if Message.Msg = MyMessageID then begin     ....  end;end;

总结

以上是内存溢出为你收集整理的Delphi：如何从PostMessage接收自定义Windows消息？全部内容，希望文章能够帮你解决Delphi：如何从PostMessage接收自定义Windows消息？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。