Position du Curseur dans un TEditRésolu

Question

Bonjour,



Est-il possible de connaitre la position du curseur dans un composant
TEdit, et de la changer, si non existe t-il un composant capable de
faire ce genre de chose.



Merci d'avance.

alexis2015 · Answer

Slt,

Voil&#224; ce ke je te propose sur un Tbutton;



procedure TForm1.Button1Click(Sender: TObject);

var cPos : TPoint;

begin

cPos:= Mouse.CursorPos; // Tu r&#233;colte sa position

edit1.text:=inttostr(MPos.X)+' - '+inttostr(mpos.y); // Et tu l'&#233;crit dans un TEdit

 end ;



Sur un TEDit c encore + simple ! 



procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

edit1.text: =inttostr(X)+' - '+inttostr(y);

// Ici, j'utilise X et Y car ce sont des variable fournie par la procedure et qui renvoie directement la position du curseur

end;



Maintenant si tu vx positioner ton curseur &#224; un endroit pr&#233;ci :

(de nouveau sur un TButton)



procedure TForm1.Button2Click(Sender: TObject);

var cPos : TPoint;

begin

cpos.X:=200; // Tu attribues tes coordon&#233;es

cpos.Y:=200;

Mouse.CursorPos:=cPos; // et tu les aplliquent au curseur 

end;



J'&#233;p&#232;re que ca rep &#224; ta question.

Si oui, valide la r&#233;ponse 



Alexis

alexis2015 · Answer

Oups, Une petite erreur c'est gliss&#233;e dans la premi&#232;re source :



Il faut remplacer les "MPos.X" et "MPos.y" par la variable d&#233;clar&#233;e &#224; savoir "cPos" et pas "MPos".



Donc ca donne :



 edit1.text:=inttostr(cPos.X)+' - '+inttostr(cPos.y);



D&#233;so

cs_grandvizir · Answer

var P, PositionDansEdit : TPoint;
begin
  GetCursorPos(P);
  PositionDansEdit:=Edit1.ScreenToClient(P);
end;

Et inversement:

var P : TPoint;
begin
  P:=Edit1.ClientToScreen(Point(X,Y));
  SetCursorPos(P);
end;

C'est une autre manière (aux imperfections live près)...

alexis2015 · Answer

Je ne connaissais pas cette m&#233;thode, tr&#232;s tr&#232;s int&#233;ressant 



Alexis

cs_Kenavo · Answer

Salut,



Si c'est la position du curseur d'&#233;dition du TEdit que tu veux conna&#238;te, utilise SelStart :




SelStart, propri&#233;t&#233; (TCustomEdit)



 Repr&#233;sente la position du premier caract&#232;re s&#233;lectionn&#233; dans le texte.



Syntaxe Delphi :

property SelStart: Integer;

Syntaxe C++ :

__property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};



 Description 



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.



Ken@vo

<hr size ="2" width="100%">Code, Code, Codec !

[%3C/body ]

tichau4 · Answer

d&#233;sol&#233; alexis2015, je me suis mal exprimer le curseur dont je parlai &#233;tait celui de l'Edit, pas le curseur de la souris.

Merci kan meme.

Pour SelStart quand j'affecte une valeur :

Edit1.SelStart:=2;

rien ne se passe ? prk?

Je voudrai kan je clique sur un bouton, le curseur de l'edit se mette a un endroit pr&#233;cis par exemple avant le 3eme cract&#232;re.

cs_Kenavo · Answer

Il ne se passe rien car c'est ton bouton qui d&#233;tient le focus. Il faut &#233;crire : 



Edit1.SetFocus;

Edit1.SelStart := 2;



Ken@vo
 Code, Code, Codec !

[%3C/body ]

tichau4 · Answer

OK

Merci beaucoup ca marche.

Position du Curseur dans un TEdit

8 réponses

Votre réponse

Discussions similaires