Discussion :

[fred7]

Bonjour,

ma question est donc: comment savoir si le curseur de la souris est immobile?

en effet je veux afficher une image au bout d'un certain temps si le curseur reste immobile tout au long de ce "certain temps".

j'avais penser à un systéme qui lis en permanence les coordonnées du curseur et les copie dans une variable et compare ensuite si les varaibles restent identiques ou non aux valeurs lues.

Mais ce systéme me semble assez compliqué et je me dit qu'il doit bien avoir un moyen plus simple. Je m'en remet donc à vous.

[Clorish]

TApplicationEvent et evenement OnMessage.
Teste le message WMMouseMove pour tester la position de X et Y.

[Clorish]

Voire meme les property X et Y de l'objet global Mouse ......

[Gilbert Geyer]

Ou encore sous forme d'un object surveillé par un timer :

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
 
type oSouris = Object bG,bD : integer;
                      p     : tPoint;
                      H     : HWnd;       
                   end;
 
var  Souris : oSouris; 
 
procedure TForm5.Timer1Timer(Sender: TObject); 
begin        Souris.H:=GetCapture; // handle du truc sous la souris
 
             Souris.bG:=getAsyncKeyState(VK_LButton); // pour savoir si on a cliqué sur le bouton Gauche de la souris
             Souris.bD:=getAsyncKeyState(VK_RButton); // idem pour le bouton Droit de la souris
 
             GetCursorPos(Souris.p); // YSouris = Souris.p.y et XSouris = Souris.p.x = Positions X et Y de la souris à l'instant "T"
end;

... et pour l'utilser :

Code :

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

1
2
3
4
5
6
7
8
9
 
         var Xini,Yini : integer;
         .......
         Xini:=position initiale de la souris
         Yini:= idem 
         .......
         if (Souris.p.y <> Yini) or (Souris.p.x <> Xini)
         then showMessage('Il a bougé la souris !');
         ......

[Clorish]

Pourquoi creer un objet la ou Delphi en propose un tout fait : Mouse : TMouse

[Gilbert Geyer]

A Clorish

Pourquoi creer un objet la ou Delphi en propose un tout fait : Mouse : TMouse

.. j'avais créé cet object pour détecter n'importe où le click-Gauche/Droit de la souris et en même temps j'y ai encapsulé l'équivalent de Capture et de CursorPos de TMouse (et le timer surveillait en plus d'autres getAsyncKeyState(VK_...) )
... mais si fred7 n'est actuellement intéressé que par l'immobilité de la souris alors le TMouse standard lui suffit ... par contre le reste peut intéresser sa curiosité.

[fred7]

merci pour vos réponse!! je suis satisfait à 300% lol