modifier la position de la souris par codeRésolu

Question

Bonjour alors voila, je voudrai savoir comment fait t-on pour modifier la position de la souri, du tyle que l'on choisi sa position dans des edit1.text et edit2.text.  En faite c'est l'utilisateur qui choisi la position de la souri merci

Cirec · Accepted Answer

Salut,
Effectivement il y a un probl&#232;me : 

La bonne solution : 

Var X, Y Integer;
Begin
 X := StrToInt(Edit1.Text);
 Y := StrToInt(Edit2.Text);
 SetCursorPos(X, Y);
End;

D&#233;sol&#233; pour le retard 

@+
Cirec

jlen100 · Answer

salut,

utilise selstart pour positionner ton curseur:

Utilisez SelStart pour d&#233;terminer la position du premier caract&#232;re
s&#233;lectionn&#233;, o&#249; 0 repr&#233;sente le premier caract&#232;re. Si aucun texte n'est
s&#233;lectionn&#233;, SelStart indique la position du curseur. Affectez une
valeur &#224; SelStart pour retirer la s&#233;lection en cours et positionner le
curseur imm&#233;diatement avant le caract&#232;re indiqu&#233;.



Pour s&#233;lectionner une portion de texte particuli&#232;re, affectez d'abord une valeur &#224; SelStart pour positionner le curseur, puis affectez une valeur &#224; SelLength pour &#233;tendre la s&#233;lection.

@+

jlen

Cirec · Answer

Salut,
je ne sais pas si j'ai bien compris ce que tu demandes mais pour positionner la souris tu peux utiliser 
SetCursorPos(Point(ValeurX, ValeurY))

@+
Cirec

maxioutils · Answer

salu cirec, ton code est cool mais moi ce que je veux c'est faire marcher sa dans des edit car ton code ne fonctionne pas si on met sa a la place :
SetCursorPos(Point(Edit1.Text, Edit2.Text); il me met une erreur du style tpe imcompatible ce qui est normal

quand a toi jlen je n'arrive pas a le mettre en application ton astuce.

Cirec · Answer

Alors c'est tout simple : 
SetCursorPos(Point(StrToInt(Edit1.Text), StrToInt(Edit2.Text)));
et pour que ce soit plus claire tu peux d&#233;clarer une variable de type TPoint:

Var Pt : TPoint;
Begin
 Pt.X := StrToInt(Edit1.Text);
 Pt.Y := StrToInt(Edit2.Text);
 SetCursorPos(Pt);
End;

@+
Cirec

maxioutils · Answer

merci encor epour ta r&#233;ponse cirec mais ton code est parfait mais la seule chose qui ne marche pas c'est l'erruer qui saffiche, le compilateur me dit que c'est imcompatible integer et point

maxioutils · Answer

super merci &#231;a marche a la perfection euh o faite tu avais fait une erreur dans ton code tu avait oublier ":" les 2 points apres var x, y

Cirec · Answer

Oui c'est vrai d&#233;cid&#233;ment je dois me faire trop vieux j'oublie trop de chose ces dernier jours 
Mais finalement on est arriv&#233; au r&#233;sultat demand&#233;, &#231;a &#224; &#233;t&#233; p&#233;nible pour que ces quelques lignes de codes soient fonctionnelles.
Eh ouai c'est la preuve que personne n'est parfait et surtout pas moi 
 

@+
Cirec

Modifier la position de la souris par code

8 réponses

Votre réponse

Discussions similaires