M
mayao
Unregistered / Unconfirmed
GUEST, unregistred user!
坛子里的高手们，我想请教一个问题，就是怎么让Memo自动平滑滚屏，原先的文章我看了，但那些都是一行行往上跳的，看着不是很舒服，我想做成平滑滚动的效果。
我做一个程序，在里面放了一个memo，然后从数据库里读取数据（较长的文章），滚动到文章最后，再读下一条文章记录，再滚动...，循环，当鼠标移动动到memo上时，停止滚动。
这是我是参考别人的一段代码，滚动效果一般，但是只能一直向下滚动，不知道如何判断是否已滚动到当前文章的结尾，不知大家有何良策，代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
var x,x1
Rect;
begin
new(x);
new(x1);
x^ := Memo1.ClientRect;
x1^ := Memo1.ClientRect;
ScrollWindow(Memo1.Handle,0,-1,x,x1);
end;
谢谢关注！ [
]
我做一个程序，在里面放了一个memo，然后从数据库里读取数据（较长的文章），滚动到文章最后，再读下一条文章记录，再滚动...，循环，当鼠标移动动到memo上时，停止滚动。
这是我是参考别人的一段代码，滚动效果一般，但是只能一直向下滚动，不知道如何判断是否已滚动到当前文章的结尾，不知大家有何良策，代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
var x,x1
Rect;begin
new(x);
new(x1);
x^ := Memo1.ClientRect;
x1^ := Memo1.ClientRect;
ScrollWindow(Memo1.Handle,0,-1,x,x1);
end;
谢谢关注！ [
]
] 厉害啊，兄弟，你还真是身手不凡，自己写的，说不得我要拜读了