[原创] delphi Memo 滚动到底部/开始 [Delphi XE、Delphi 7]

以前控制Memo滚动到底部的操作：

SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);

或者

Memo1.SelLength:=Length(Memo1.Text);   //移动光标

 

现在不需要这样，delphi xe 10 以上版本已经非常好用了：

Memo1.GoToLineEnd;　　　　//滚动当前行到光标结尾

Memo1.GoToLineBegin;　　　 //滚动到当前行光标开始

Memo1.GoToTextEnd;　　 　   //滚动到文本结尾

Memo1.GoToTextBegin　　     //滚动到文本开头