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