Recherche
1 connecté

  procédure propre à un message

GERER LES MESSAGES WINDOWS

CREATION D'UNE PROCEDURE DESTINEE A INTERCEPTER UN CERTAIN MESSAGE

Dernière mise à jour : 29/01/00

 

Ajoutez dans la partie private la déclaration de la procédure qui sera déclenchée lorsqu'un certain message sera émis (ici le message :WM_RBUTTONDOWN)

private
procedure SourisCliqueDroit( var msg:TMessage); message WM_RBUTTONDOWN;

Puis dans la partie implementation ajoutons l'implémentation de cette procédure :

implementation

{$R *.DFM}

procedure TForm1.SourisCliqueDroit( var msg:TMessage);
begin
  ShowMessage('Message détecté dans SourisCliqueDroit');
  inherited;// si on veut continuer à propager le message
end;

Si vous cliquez sur la Form à l'aide du bouton droit, votre ShowMessage se déclenchera.


On notera que le message msg est passé par adresse (var) on peut donc modifier son contenu avant d'appeler inherited

source du programme exemple

retour au sommaire