RichEdit: Zeilen und Zeichen pro Zeile begrenzen

[Reinhardtinho]

Hallo *,

soweit mit den Zeichenbegrenzung pro Zeile funktioniert alles, nur hab ich ein Problem. Wenn ich den Text zuweise, wird die Cursorposition an den Anfang gesetzt, ich möchte aber, dass der Cursor hinter dem Zeichen bleibt, dass ich zuletzt eingefügt habe.

Wie mache ich das am Besten? Der Eigenschaft CaretPos kann man nichts zuweisen.

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
var
  sText   : String;
  i       : Integer;
  NewText : String;
begin
  sText   := Memo1.Text;
  NewText := '';

  sText := StringReplace(sText, #13, '', [rfReplaceAll]);
  sText := StringReplace(sText, #10, '', [rfReplaceAll]);

  for i := 1 to Length(sText) do
  begin
    if ((i Mod 10) = 0) then
      NewText := NewText + sText[i] + #13#10
    else NewText := NewText + sText[i];
  end; (* of for *)

  Memo1.Text := NewText;

  //Cursorposition neu setzen
end;

MFG
Lorenz