Utiliser les boutons étendus de la souris
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:
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; |
Mon problème : je n'arrive pas à différencier les 2 boutons étendus. Le test
Code:
if Msg.wParam and MK_XBUTTON1 <>0 then
ne fonctionne pas.
Quelqu'un pourrait-il m'aider?
Merci d'avance