请教:关于两窗体间传递消息的问题

Question

现桌面上有若干窗体,其中a窗体有控件TImageLibThumbnails,我要在b窗体里面把包含如下结构体的消息发到a窗体.
type  
 xx=packed record;
 model:char;
 data1:integer;
 data2:integer;
 dirOfFile:string;
end;
 

Answer 1

type    
    Pxx=^XX;窗体B中:
var
    xxTemp:XX;
begin
.....
    xxTemp.Model:=....
    ......
    
    SendMessage(FormA.Handle,WM_USER+500,0,integer(@xxTemp));窗体A中：
    procedure OnMessage(var m: TMessage); message WM_USER+500;procedure TFormA.OnMessage(var m: TMessage);
begin
    Memo1.Lines.Add(IntToStr(Pxx(M.lParam)^.data1)+':'+Pxx(M.lParam)^.dirOfFile);
    .......

Answer 2

好像Delphi可以自定义消息的结构的。一时找不到那篇文章了。