TEdit: Textcursor ans Ende

[Xzeer]

Hallo,

Ich habe eine simple Frage zum TEdit. Ist es möglich den Textcursor ans Ende des bisher eingegebenen Textes zu setzten? Mit Edit.SetFokus springt der Textcursor leider vor den geschriebenen Text... :gruebel:

[Matze]

Hallo,

nur geraten:

Delphi-Quellcode:

Edit.SelStart := Length(Edit.Text);

[Xzeer]

getestet und funktioniert....thx :-D

Delphi-Quellcode:

procedure Tfo_main.Button1Click(Sender: TObject);
begin
  edit1.SetFocus;
  edit1.SelStart:=length(edit1.Text);
end;