定义一个自定义消息CONST WM_MYMESSAGE = WM_USER+123
你可在其它窗口中向WM_MYMESSAGE传递值,可用sendmessage,postmessage
如你想传递字串'abcdef'和整形值12345,可以
PostMessage(Handle,WM_MYMESSAGE,WPARAM(pchar('abcdef')),LPARAM(Longint(12345)));
Handle接收该消息的窗口句柄
写个消息接收处理过程
procedure Mymsgproc(var message: TMessage); message WM_MYMESSAGE
VAR
str: string;
i: integer;
begin
str:=String(message.WPARAM);
i:=message.LPARAM;
end;
要使用那个窗口不要忘了加上uses。