★如何将光标定位到RichEdit的尾部，同时让滚动条也在最下处？？（详见文）

Question

RichEdit设置的滚动条后
当文字多的时候就会出现竖滚动条现在一个按钮做了如下设置：
procedure TForm1.Button1Click(Sender: TObject);
begin
    Richedit1.SetFocus;
    RichEdit1.SelStart := length(richedit1.text);
end;想做到点击该按钮，光标移到文字最尾的同时，滚动条也移到最下边，但光标移到了文字最下边，滚动条却没有移到最下边请问如何做到这种效果？？？？？在VB中使用这样的语句就可以实现。

Answer 1

在你的函数里加入这一句话就可以了：  
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0) ;