Position du Curseur dans un TEdit

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.

Slt,
Voilà ce ke je te propose sur un Tbutton;

procedure TForm1.Button1Click(Sender: TObject);
var cPos : TPoint;
begin
cPos:=Mouse.CursorPos; // Tu récolte sa position
edit1.text:=inttostr(MPos.X)+' - '+inttostr(mpos.y); // Et tu l'é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 à un endroit préci :
(de nouveau sur un TButton)

procedure TForm1.Button2Click(Sender: TObject);
var cPos : TPoint;
begin
cpos.X:=200; // Tu attribues tes coordonées
cpos.Y:=200;
Mouse.CursorPos:=cPos; // et tu les aplliquent au curseur
end;

J'épère que ca rep à ta question.
Si oui, valide la réponse

Alexis

Oups, Une petite erreur c'est glissée dans la première source :

Il faut remplacer les "MPos.X" et "MPos.y" par la variable déclarée à savoir "cPos" et pas "MPos".

Donc ca donne :

edit1.text:=inttostr(cPos.X)+' - '+inttostr(cPos.y);

Déso

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

Je ne connaissais pas cette méthode, très très intéressant

Alexis

désolé alexis2015, je me suis mal exprimer le curseur dont je parlai é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écis par exemple avant le 3eme cractère.

OK

Merci beaucoup ca marche.