添加一行后,我需要将 RichEdit 滚动到最后。我有一个单独的形式的 RichEdit,我根本不想获得焦点。我尝试了经常建议的解决方案:
RichEdit.Lines.Add(someText);
RichEdit.SelStart:=RichEdit.GetTextLen;
SendMessage(RichEdit.handle, EM_SCROLLCARET, 0, 0);
但这对我不起作用。但是,当我在使用 RichEdit.SetFocus;
调用 SendMessage
之前聚焦 RichEdit 时,它工作得很好。然而,这破坏了我对该应用程序的其他需求。
我正在使用XE2。谢谢
最佳答案
这就是我所做的:
SendMessage(RichEdit.Handle, WM_VSCROLL, SB_BOTTOM, 0);
关于delphi - 在没有焦点的情况下滚动 RichEdit,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9757134/