Delphi中如何使右侧的滚动条自动拖到底端以显示 RichEdit 最新添加的文本

加在OnChange事件中:

卷屏到光标处

 SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0); 
向下卷屏一行
 SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0) 
向下卷屏到底
 SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0) 
参见 MSDN 的 WM_VSCROLL
阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页