加在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
28
2025
12
Delphi中如何使右侧的滚动条自动拖到底端以显示 RichEdit 最新添加的文本
作者:admin | 分类:C++语言技术 | 浏览:70 | 评论:0
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。