如何在richedit中实现聊天室的滚屏功能

[guyu_jj]

如题

[xyyct]

试一试
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0);

[guyu_jj]

试过了,不过它一次只下滚一条,如果我的文件有10000条,那就不行了

[guyu_jj]

我还想问一下,聊天室的滚屏到底实现的是什么功能?
其实我的问题是怎么让他不滚屏,

我的需求是:
滚屏时: 始终显示最新信息(系统默认实现)
不滚屏时: 只显示当前信息(问题所在)

[晨池]

在OnChange事件里写：
Self.SelStart:=Length(Self.Text);