How to make a child form listen to broadcasted messages

最新推荐文章于 2024-10-30 16:10:53 发布

iseekcode

最新推荐文章于 2024-10-30 16:10:53 发布

阅读量564

点赞数

分类专栏： Form system 文章标签： buffer string class

system 同时被 2 个专栏收录

12 篇文章 0 订阅

订阅专栏

Form

11 篇文章 0 订阅

订阅专栏

本文介绍了一种使用Windows消息传递机制让一个应用程序（发送者）向另一个应用程序（接收者）发送消息的方法。具体实现中，发送者通过编辑框输入消息，并通过按钮触发发送过程。消息通过`WM_COPYDATA`发送到接收窗口，后者展示接收到的消息。

摘要由CSDN通过智能技术生成

How to make a child form listen to broadcasted messages

In the sender add a procedure such as:

procedure TForm1.Button2Click(Sender: TObject);
var
Receiver: THandle;
buffer: array[0..1023] of char;
Data: TCopyDataStruct;
begin
Receiver := FindWindow('TReceiverForm', nil);
if Receiver > 0 then
begin
    StrPLCopy(@buffer, Edit1.Text, 1024); // Assumes message in Editbox
    Data.dwData := 0;
    Data.cbData := 1024;
    Data.lpData := @buffer;
    SendMessage(Receiver, WM_COPYDATA, 0, LongInt(@Data));
end;
end;In the receiver add these:

type
TForm1 = class(TForm)
    { ... }
private
    { ... }
protected
    procedure WmCopyData(var Msg: TMessage); message WM_COPYDATA;
public
    { ... }
end;

procedure TForm1.WmCopyData(var Msg: TMessage);
begin
ShowMessage(
'This message sent:' + #13 +
string(PChar(PCopyDataStruct(Msg.LParam)^.lpData))
);
end;