delphi - 如何自动滚动到 RichEdit 的末尾？

Question

我以前从来不需要使用 TRichEdit，一直使用 TMemo。

当我添加 TMemo 等文本时，我希望 RichEdit 自动滚动到末尾。看看添加一些数据后的样子:

如您所见，滚动条保留在顶部，但我希望在添加文本时它保留在底部。

我已通过“Google 搜索”寻找解决方案，但找不到好的且可靠的解决方案。

Answer 1

试试这个代码

RichEdit1.SetFocus;
RichEdit1.SelStart := RichEdit1.GetTextLen;
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);