Richedit automatisch immer ganz nach unten scrollen lassen

[Flocke]

... und so ist's noch ein bisschen effizienter (insb. wenn RichEdit1.Text ziemlich lang werden kann):

Delphi-Quellcode:

str := Edit1.Text + #13#10;

RichEdit1.SelStart := RichEdit1.Perform(WM_GETTEXTLENGTH, 0, 0);
RichEdit1.Perform(EM_REPLACESEL, 0, Integer(PChar(str)));
RichEdit1.SelStart := RichEdit1.Perform(WM_GETTEXTLENGTH, 0, 0);
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);