memo滚动问题 ( 积分: 20 )

J

jhlz1968

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-02

• #1

看了电脑报的一篇文章，代码如下：<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br> &nbsp;x,x1Rect;<br>begin<br> &nbsp;new(x);<br> &nbsp;new(x1);<br> &nbsp;x^ := Memo1.ClientRect;<br> &nbsp;x1^ := Memo1.ClientRect;<br> &nbsp;ScrollWindow(Memo1.Handle,0,-1,x,x1);<br>end;<br><br>上述代码可以使Memo中的文字平滑向上滚动，但是只能滚动Memo中可视部分的文字。<br>我的Memo中的文字很多（有垂直滚动条），怎样使Memo中的所有文字都能滚动。

 

J

jhlz1968

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-02

• #2

看了电脑报的一篇文章，代码如下：<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br> &nbsp;x,x1Rect;<br>begin<br> &nbsp;new(x);<br> &nbsp;new(x1);<br> &nbsp;x^ := Memo1.ClientRect;<br> &nbsp;x1^ := Memo1.ClientRect;<br> &nbsp;ScrollWindow(Memo1.Handle,0,-1,x,x1);<br>end;<br><br>上述代码可以使Memo中的文字平滑向上滚动，但是只能滚动Memo中可视部分的文字。<br>我的Memo中的文字很多（有垂直滚动条），怎样使Memo中的所有文字都能滚动。

 

A

ahhlian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-02

• #3

procedure TForm1.Timer1Timer(Sender: TObject);<br>begin<br> &nbsp;sendmessage(Memo1.Handle,WM_VSCROLL,SB_Linedown,0);<br>end;<br><br>你看这个效果可以吗？ 平滑移动我也不是很清楚该如何做？

 

J

jhlz1968

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #4

TO：ahhlian<br><br>你的代码是逐行滚动，不是平滑滚动。

 

D

delphilxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-09

• #5

好像很麻烦，试验了一会，没有搞定

 

J

jhlz1968

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-10

• #6

再试验

 

J

jhlz1968

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #7

没有找到答案，算了还是结贴吧

 

J

jhlz1968

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-15

• #8

多人接受答案了。