Discussion :

[xxDamDamxx]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 WM_XBUTTONDOWN

J'ai donc créé une appli toute bête permettant de faire mes tests

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;

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

 if Msg.wParam and MK_XBUTTON1 <>0 then

ne fonctionne pas.

Quelqu'un pourrait-il m'aider?

Merci d'avance

[ShaiLeTroll]

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm2.WMXButtonDown(var Msg: TMsg);
begin
 ShowMessage(IntToStr(Msg.wParam));
end;

Est-ce que wParam change de valeur en fonction du bouton appuyé ?

Si oui essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
const
 MK_XBUTTON1 = $20;
 MK_XBUTTON2 = $40;
 XBUTTON1 = $00010000   
 XBUTTON2 = $00020000;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.WMXButtonDown(var Msg: TMsg);
begin
 if (Msg.wParam and XBUTTON1) <> 0 then
     Showmessage('Bouton étendu 1 clické');
 else if (Msg.wParam and XBUTTON2) <> 0 then
     Showmessage('Bouton étendu 2 clické');
 else if (Msg.wParam and MK_XBUTTON1) <> 0 then
     Showmessage('Bouton étendu 1 appuyé');
 else if (Msg.wParam and MK_XBUTTON2) <> 0 then
     Showmessage('Bouton étendu 2 appuyé');
end;

Je ne suis pas un expert en ce qui concerne les priorités des opérateurs, je préfère mettre mes () pour être sur que le code fonctionne comme je l'ai prévu !

[xxDamDamxx]

Merci pour ta réponse

La variable wParam change en fonction de la position du curseur sur la fiche mais pas en fonction du bouton de la souris. Cela m'a induit en erreur

Du coup j'ai regardé quel composante du TMsg variait et j'ai testé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 if Msg.Message and MK_XBUTTON1 <>0 then
     begin
     Showmessage('Bouton étendu 1');
     Exit;
     end;
 if Msg.Message and MK_XBUTTON2 <>0 then
     begin
     Showmessage('Bouton étendu 2');
     Exit;
     end;

Ce test marche!

La variable à contrôler était donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msg.Message

Merci pour tes indications!

[ShaiLeTroll]

wParam contient le masque du bouton
lParam contient la position de souris
Tu as un décalage mémoire suite à une confusion de type

TMsg c'est le type Windows, interne aux API
TMessage c'est le type simplifié Delphi, pour la VCL

change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure TForm2.WMXButtonDown(var Msg: TMsg);

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure TForm2.WMXButtonDown(var Msg: TMessage);

avec un TMessage, tu dois pouvoir utiliser wParam correctement !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
TMessage = record
    Msg: Cardinal;
    WParam: WPARAM;
    LParam: LPARAM;
    Result: LRESULT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
TMsg = record
    hwnd: HWND; 
    message: UINT;
    wParam: WPARAM;
    lParam: LPARAM;
    time: DWORD;
    pt: TPoint;
  end;

donc si tu reçois un TMessage et que tu l'utilises comme un TMsg, dans TMsg.message cela contient TMessage.WParam et dans TMsg.wParam cela contient TMessage.LParam, si tu accèdes à TMsg.time c'est même le risque d'une Violation d'Accès

[xxDamDamxx]

Merci pour la précision. J'ai remplacé TMsg par TMessage et cela fonctionne

Comment cela se passe-t-il lorsqu'on gère les évenement via un handler?

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
37
38
39
40
41
42
43
44
45
46
47
 
unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
 
type
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Déclarations privées }
    procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
  public
    { Déclarations publiques }
  end;
 
const
 MK_XBUTTON1 = $20;
 MK_XBUTTON2 = $40;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormShow(Sender: TObject);
begin
 Application.OnMessage := MsgHandler;
end;
 
procedure TForm2.MsgHandler(var Msg: TMsg; var Handled: Boolean);
begin
 if handled then exit;
 if Msg.Message = WM_XBUTTONDOWN then
     begin
     if (Msg.wParam and MK_XBUTTON2 <>0) then Showmessage('Bouton étendu 2')
     else
         if (Msg.wParam and MK_XBUTTON1 <>0) then Showmessage('Bouton étendu 1');
     handled:=true;
     exit;
     end;
end;

Est ce que déclarer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnMessage := MsgHandler;

est suffisamment propre?

Dans ce cas la procédure MsgHandler ne peut contenir qu'une variable du type TMsg.

Ce code semble fonctionner.

[Paul TOTH]

le message handler est utilisé quand on ne peut pas déterminer à l'avance le numéro de message, car il est paramétrable ou qu'il provient de RegisterWindowMessage; si on connait son numéro il est plus simple de passage par "message XXX"