Edit.Text -> Caret ans Ende

[baba]

Moin, moin,

ich möchte das Caret ans Ende der Zeile setzen ohne WinAPI Funktionen zu verwenden.

Beispiel:

Code: Alles auswählen

procedure TFM_Suchen.FormCreate(Sender: TObject);
begin
   BorderIcons := [];
   FM_Suchen.Caption := 'Suchbegriff';
   Edit1.Text := Pa_Tx1_Eingabe;
   Edit1.SetFocus;   // NUN STEHT DAS CARET AM ZEILENANFANG!
end;

Eigentlich möchte ich im Editfeld nur die Taste [ENDE] simmulieren.

Gruß
Baba.

[DiBo33]

Code: Alles auswählen

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

[baba]

Danke.