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