How can my app receive the WM_COPYDATA message on WIN32?

[marunguy]

I use the Lazarus + fpc 2.4.3.

I reference below link.
http://www.lazarus.freepascal.org/index.php/topic,3973.0.html

Below is my test code.

Code: [Select]

.........
protected
    procedure WndProc( var TheMessage: TLMessage); override;
.........
procedure TFormMain.WndProc( var TheMessage: TLMessage);
begin
  if TheMessage.msg = WM_COPYDATA then
    MessageDlg('AAAA', mtInformation, [mbOK], 0 )
  else
    inherited WndProc(TheMessage)
end;
But, My app cannot receive the WM_COPYDATA message.

I try with PassWin32MessagesToLCL define, but result is same.

How can my app receive the WM_COPYDATA message?