L leanlay Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-21 #1 一个只有垂直滚动条的momo控件内文本的平滑滚动，就像用手拖动垂直滚动条似的，但是要平滑，并且能控制滚动速度。我已经在Timer1中用过PostMessage(memo1.handle,WM_vScroll,SB_LineDown,0)，但是滚动不够平滑，各位高手，有没有好的办法呀？
一个只有垂直滚动条的momo控件内文本的平滑滚动，就像用手拖动垂直滚动条似的，但是要平滑，并且能控制滚动速度。我已经在Timer1中用过PostMessage(memo1.handle,WM_vScroll,SB_LineDown,0)，但是滚动不够平滑，各位高手，有没有好的办法呀？
A app2001 Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-21 #2 procedure TForm1.Button1Click(Sender: TObject);<br>var<br> R: LongInt;<br>begin<br> repeat<br> R := Memo1.Perform(EM_SCROLL, SB_LINEDOWN, 0);<br> Memo1.Update;<br> Sleep(100);<br> until LoWord(R) = 0;//发现滚动了0行当然得退出了!<br>end;
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> R: LongInt;<br>begin<br> repeat<br> R := Memo1.Perform(EM_SCROLL, SB_LINEDOWN, 0);<br> Memo1.Update;<br> Sleep(100);<br> until LoWord(R) = 0;//发现滚动了0行当然得退出了!<br>end;
L leanlay Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-21 #3 To:app2001<br>你的解答和我问题中给出的有问题的方法是一样的，就是滚动不够平滑，而且是一行一行的跳跃的。
I iseek Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-21 #4 leanlay<br>请看看我的这个问题，可以解决你所说的平滑滚动问题。<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=2183704<br>
