Cursorposition setzen und lesen

[Thomas Iseli]

Hallo,<br>
wie kann ich die Cursorposition in einer TEdit-Komponente ausfindig machen und auch setzen?
Wird wahrscheinlich einfach gehen aber ich hab's einfach nicht herausbekommen.<br>
Vielen Dank zum Voraus!

[Andreas Kosch]

Hallo,

das folgende Beispiel setzt den Cursor an das Textende im TEdit. Die Eigenschaft <b>SelStart</b> gibt die Position des ersten markierten Zeichens im Text an, während die Eigenschaft <b>SelLength</b> die Anzahl der markierten Zeichen zurückliefert.
<pre>
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.AutoSelect := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SelStart := Length(Edit1.Text);
Edit1.SetFocus;
end;
</pre&gt