GETMOUSESTATE |
Demande l'état de la souris |
|---|---|
| Free Pascal | winmouse |
Syntaxe
| Procedure GetMouseState(Var x,y,buttons:LongInt); |
Paramètres
| Nom | Description |
|---|---|
| x | Ce paramètre permet d'indiquer la position horizontal de la souris |
| y | Ce paramètre permet d'indiquer la position vertical de la souris |
| buttons | Ce paramètre permet d'indiquer l'état des boutons de souris de la souris |
Description
Cette procédure permet d'effectuer la lecture de la positions en pixels du périphérique de souris ainsi que l'état des boutons de souris.
Remarques
- Cette fonction doit être utilisé en complément avec l'unité Graph ou Crt sous le système d'exploitation Windows.
- Windows : La position est calculé à partir du début de l'écran et non à partir du début de la fenêtre console.
Exemple
Voici un exemple, pour Windows 10, de comment l'utiliser en mode console (la position est calculer à partir du début de l'écran et non pas de votre fenêtre console) :
- Program GetMouseStateGetMouseXSamples;
-
- Uses Crt,WinMouse;
-
- Var
- X,Y,Buttons:LongInt;
-
- BEGIN
- InitMouse;
- ClrScr;
- GotoXY(1,1);
- WriteLn('Déplacer votre souris pour voir GetMouseX à l''oeuvre.');
- WriteLn('Presse une touche clavier pour quitter');
- Repeat
- GotoXY(1,4);
- GetMouseState(X,Y,Buttons);
- WriteLn('Position : X = ',X:5,' pixels, en colonne texte = ',X shr 3:5);
- Until(KeyPressed)or(Buttons<>0);
- END.
Voir également
Langage de programmation - FreePascal - Référence procédures et fonctions - Unité Mouse - InitMouse
Interruption 33h : Interface du pilote de souris
Technologie - Informatique - Souris
Dernière mise à jour : Samedi, le 13 février 2016