|
|||
Fermer
GERER LES MESSAGES WINDOWSCREATION 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) 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.
|