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