Memo文本的操作:怎样把Memo文本的光标移动到最后,滚动条如何控制?求高手指教,问题解决后马上结账!

Question

怎样把Memo文本的光标移动到最后,滚动条如何控制?求高手指教,问题解决后马上结账!
Memo.SelStart := length(Memo.Text);
上面能实现光标移动到Memo文本末尾
但是滚动条不跟着走
请问如何控制滚动条,让滚动条跟着向下移动?

Answer 1

memo.Lines.Move(0,memo.Lines.Count);
Memo.SelStart := length(Memo.Text);
memo.SetFocus;已经过试验，快给分吧

Answer 2

这个方法不好,我现在已经有了一个好的方法
放在Memo中的Change事件里.
Memo1.SelStart := length(Memo1.Text);
SendMessage(Memo1.Handle,WM_KeyDown,VK_End,0);
你上面的代码如果放在Change事件里,跳来跳去的,不好用.
不过20分同样奉上,感谢阁下的参与精神!