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

Question

我以前从来不需要使用 TRichEdit，总是使用 TMemo。

当我添加像 TMemo 这样的文本时，我希望 RichEdit 自动滚动到最后。添加一些数据后查看它的外观：

正如您所看到的，滚动条仍然位于顶部，但我希望在添加文本时它保留在底部。

我已经“谷歌搜索”解决方案，但找不到一个好的且可靠的解决方案。

Answer 1

试试这个代码

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

Answer 2

这是更简单快捷的解决方案：

在 OnChange 事件处理程序中只需：

SendMessage(RichEdit1.handle, WM_VSCROLL, SB_BOTTOM, 0);

原始答案来自：https://www.experts-exchange.com/questions/21002277/Richedit-autoscrolling.html

Answer 3

简而言之，您需要将光标放在末尾，或者发送代码向下滚动。

你尝试过吗

Richedit1.SelStart :=RichEdit1.GetTextLength();
SendMessage(RichEdit1.handle, EM_SCROLLCARET,0,0);