var SourisPos: TPoint; GetCursorPos(SourisPos); //Position X SourisPos.X //Position Y SourisPos.Y
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.
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;
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 586 membres 27 nouveaux aujourd'hui 16 150 membres club