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
阅读更多
文章标签: delphi scroll
个人分类: Delphi相关
上一篇delphi 出现unknown picture file extension(.jpg)解决办法
下一篇Delphi 用来设置控件的Enable的好的方法
想对作者说点什么? 我来说一句

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

关闭
关闭
关闭