加在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