Wie setze ich den Curser an das Ende des textes im Editfeld

[chris_82]

Danke an alle, die mir dabei geholfen haben, das kleine Prob zu lösen

Delphi-Quellcode:

procedure TFrmEinstellungen.edtintervalChange(Sender: TObject);
var i, Laenge: Integer;
    EdtText:string;
begin
 //Prüfen ob nur Zahlen in das Editfeld eingegeben werden, falls nicht lösche das letzte Zeichen
 for i:=1 to length(EdtInterval.Text) do
  If not(EdtInterval.Text[i] in [#48..#57]) Then
  Begin
   MessageDlg('Das Intervall muss ein Ganzzahl sein', mtWarning, [mbok], 0);

   Laenge:= length(EdtInterval.Text);

   EdtText:= copy(EdtInterval.Text,0,(Laenge-1));

   EdtInterval.Text:= EdtText;
   SendMessage (EdtInterval.Handle, WM_KEYDOWN, VK_END, 0);
  End;
end;

Diese Procedure ist bei rausgekommen, Sie überprüft ob in das Editfeld nur Zahlen eingegeben werden, falls nicht kommt ein Msgdlg und das Letzte Zeichen wird "gelöscht".