Envois de Messages Windows

Pistes :

• function SendApplicationMsg(Msg: Cardinal; WParam: WParam; LParam: LParam): Longint; (unité Forms)

 TMainForm = class(TForm)
  ...
  private
    procedure TestMSG(var Message:TMessage);message 1222;
    ...
  public
  end;  
 
  ...
  ...
 
procedure TMainForm.TestMSG(var Message: TMessage);
begin
  DebugLn('Reçu Message 1222');
end;