delphi - 在没有焦点的情况下滚动 RichEdit

Question

添加一行后，我需要将 RichEdit 滚动到最后。我有一个单独的形式的 RichEdit，我根本不想获得焦点。我尝试了经常建议的解决方案:

RichEdit.Lines.Add(someText);
RichEdit.SelStart:=RichEdit.GetTextLen;
SendMessage(RichEdit.handle, EM_SCROLLCARET, 0, 0);

但这对我不起作用。但是，当我在使用 RichEdit.SetFocus; 调用 SendMessage 之前聚焦 RichEdit 时，它工作得很好。然而，这破坏了我对该应用程序的其他需求。

我正在使用XE2。谢谢

Answer 1

这就是我所做的:

SendMessage(RichEdit.Handle, WM_VSCROLL, SB_BOTTOM, 0);