怎样控制RichEdit的滚动条滑块的位置？

Question

RichEdit中载入的文本较长时，滚动条滑块总是自动停留在最上方以确保第一行可见。请问怎样用代码改变滚动条滑块的位置，比如使第50行恰好显示在框中可视部分的第一行的位置。又比如怎样使被选中的文本的起始位置或结尾位置在框中显示。怎样使滑块滚动到最下方使文本末尾可见？在VB中可以通过SelStart和SelLength属性选中文本末端，使滑块自动滚动到下方。也可以用SendKeys发送PageDown实现。请问Delphi中也有类似的方法吗？与SendKeys对应的函数是哪个？

Answer 1

在RichEditOnchang事件里写
 SendMessage(RichEdit1->Handle,WM_VSCROLL,SB_PAGEDOWN,0);

Answer 2

谢谢weibz0525(小虫)提供思路
我用代码SendMessage(RichEdit1.Handle,WM_VSCROLL,SB_BOTTOM,0);
发现会出现以下情况：滚动条向下滚动“过了头”，到了文本末端仍不停止，往下多翻了一页，加上一行
SendMessage(RichEdit1.Handle,WM_VSCROLL,SB_PAGEUP,0);就可以了。