Delphi:如何从PostMessage接收自定义Windows消息?
发布时间:2020-12-15 09:30:24 所属栏目:大数据 来源:网络整理
导读:我有两个应用程序需要通过PostMessage进行通信(排除了SendMessage,因为我需要让第二个应用程序能够在被调用时输出到Excel. 到目前为止,应用程序1调用应用程序2,确保它是打开的,当它被启用时,应用程序1被设置为禁用. 当用户完成应用程序2时,我需要将消息发送
我有两个应用程序需要通过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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |