Connaitre les positions de la souris sur l'écran

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 406 fois - Téléchargée 29 fois

Contenu du snippet

Connaitre les positions x et y de la souris sur l'écran en pixel

Source / Exemple :


var SourisPos: TPoint;
GetCursorPos(SourisPos);

//Position X
SourisPos.X
//Position Y
SourisPos.Y

A voir également

Ajouter un commentaire Commentaires
Messages postés
32
Date d'inscription
mardi 23 mars 2004
Statut
Membre
Dernière intervention
11 avril 2006

Pour Slachz :

procedure TForm11.FormClick(Sender: TObject);
var SourisPos: TPoint;
begin

GetCursorPos(SourisPos);
//Position X
showmessage(inttostr(SourisPos.X));
//Position Y
showmessage(inttostr(SourisPos.Y));
end;
Messages postés
110
Date d'inscription
lundi 21 avril 2003
Statut
Membre
Dernière intervention
1 janvier 2006

excuse mais euh... comment on l'utilise ?
je vois pas trop où on le met ds la source et où on obtient les valeurs .
merci.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.