Envois de Messages Windows

Pistes :

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

Dans cet exemple on veut intercepter un message indexé 1222.

Pour envoyer ce message on peut utiliser : PostMessage(Application.MainForm.Handle,1222,0,0);

 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;