TRichEdit automatisch zur letzen Zeile scrollen?

[smart]

Hallo Leute!
Wie kann man in einem TRichEdit automatisch zur letzen Zeile scrollen?

[mirage228]

So ca. dürfts gehen.

Delphi-Quellcode:

RichEdit1.SelStart := Length(RichEdit1.Text);
RichEdti1.Perform(EM_LINESCROLL, 0, 0);

mfG
mirage228

[smart]

@mirage228, habe ich schon versucht, geht nicht.

[jfheins]

TRichedit.Perform(WM_VSCROLL, SB_BOTTOM,0);

[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

[smart]

Vielen Dank an Euch Beiden, haut hin.

[chrizzzz]

Versuchs mal hiermit:

Perform(EM_SCROLLCARET, 0, 0); Dann brauchste auch keinen Fokus mehr setzen. So habe ich es gelößt und es funktioniert.

GreeZzZz
ChriZzZz