Bonjour,
Je cherche à utiliser les boutons étendus de ma souris (déclenchant les "précédent/suivant" dans un navigateur internet).
Après une recherche sur ce forum j'ai vu que je devais traiter le message windows
J'ai donc créé une appli toute bête permettant de faire mes tests
Code : Sélectionner tout - Visualiser dans une fenêtre à part WM_XBUTTONDOWN
Mon problème : je n'arrive pas à différencier les 2 boutons étendus. Le test
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 type TForm2 = class(TForm) private { Déclarations privées } procedure WMXButtonDown(var Msg: TMsg); message WM_XBUTTONDOWN; public { Déclarations publiques } end; const MK_XBUTTON1 = $20; MK_XBUTTON2 = $40; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.WMXButtonDown(var Msg: TMsg); var i : integer; begin if Msg.wParam and MK_XBUTTON1 <>0 then begin Showmessage('Bouton étendu 1'); Exit; end; if Msg.wParam and MK_XBUTTON2 <>0 then begin Showmessage('Bouton étendu 2'); Exit; end; end;
ne fonctionne pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part if Msg.wParam and MK_XBUTTON1 <>0 then
Quelqu'un pourrait-il m'aider?
Merci d'avance
Partager