Delphi: SendMessage don’t send to FMX

  

I successfully send message cross apps. But the code doesn’t work in FMX. I can find the FMX form but no message receive at dest.

Sender code:

CDS.dwData:= 0; //Identify message
CDS.cbData:= ByteLength(Str);
CDS.lpData:= PChar(Str);

if DstHandle=0 then
DstHandle := Winapi.Windows.FindWindow(nil, PChar(TargetFormCaption));

if DstHandle<>0 then
begin
Res := SendMessage(DstHandle, WM_COPYDATA, Handle, NativeInt(@CDS));
Result:= True;
end
else
Result:= False;

Result is true but WMGetData is not triggered.
Receiver code:

procedure WMGetData(var Msg : TWMCopyData) ; message WM_COPYDATA;

procedure TForm3.WMGetData(var Msg: TWMCopyData);
begin
Caption:= ‘Got something !’;
end;

Comments are closed.