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

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

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试