Section courante

A propos

Section administrative du site

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

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) :

  1. Program GetMouseStateGetMouseXSamples;
  2.  
  3. Uses Crt,WinMouse;
  4.  
  5. Var
  6.  X,Y,Buttons:LongInt;
  7.  
  8. BEGIN
  9.  InitMouse;
  10.  ClrScr;
  11.  GotoXY(1,1);
  12.  WriteLn('Déplacer votre souris pour voir GetMouseX à l''oeuvre.');
  13.  WriteLn('Presse une touche clavier pour quitter');
  14.  Repeat
  15.   GotoXY(1,4);
  16.   GetMouseState(X,Y,Buttons);
  17.   WriteLn('Position : X = ',X:5,' pixels, en colonne texte = ',X shr 3:5);
  18.  Until(KeyPressed)or(Buttons<>0);
  19. 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