unit Unit1;
interface
uses Windows, Messages, SysUtils, Forms, Dialogs;
type
TForm1 = class(TForm)
private
public
procedure Mensaje(var Message: TMessage); message WM_USER + 1;
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Mensaje(var Message: TMessage);
begin
with Message do
ShowMessage('Se ha recivido un mensaje personalizado de otra aplicación, parámetros: '+IntToStr(WParam)+', '+IntToStr(LParam));
end;
end.