TRichEdit automatisch zur letzen Zeile scrollen?

[mirage228]

Hi,

mit einem anschließenden "SetFocus" (zum oberen Code) gings bei mir.

mfG
mirage228

P.S.:
Mein TestCode:

Delphi-Quellcode:

var
  i: integer;
begin
  for i := 0 to 200 do
  begin
    RichEdit1.Lines.Add('test');
    RichEdit1.SelStart := Length(RichEdit1.Text);
    RichEdit1.Perform(EM_LINESCROLL, 0, 0);
    RichEdit1.SetFocus;
  end;

Edit: Der Code von jfheins bewirkt das gleiche