Discussion :

[Lung]

Dans un TEdit, comment déplacer le curseur à la fin du texte ?

J'ai bien essayé Edit.Perform(EM_SCROLLCARET, 0, 0);, mais ca ne fonctionne pas.

Une idée ?

[skywaukers]

bonjour,

peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  Edit1.SelStart := length( Edit1.Text) + 1;
end;

@++
Dany

[Lung]

Même pas pensé.



Ca marche.