滚动屏幕！(1分)

请问如何使一篇文章在屏幕由下至上的滚动？（用api函数），我用来作屏幕保护。

简单，将你的文本放在scrollbox中，将增量设置为1，用timer向scrollbox发送wm_vscroll<br>消息，即可达到象素级滚动

在窗体中加上Panel1和Label1还有一个time这三个控件<br>在label中加入你所要显示的文章<br>在时间[timer]中加入如下代码就可以了！<br>procedure TForm1.Timer1Timer(Sender: TObject); <br>begin <br>Panel1.top:=Panel1.top + 1;{向上滚动}<br>Label1.top :=Label1.top + 1;{向上滚动}<br>Panel1.top:=Panel1.top-1;{向下滚动}<br>Label1.top :=Label1.top-1;{向下滚动}<br>end; <br>请送点分给我吧！！！<br>作者：qbtxx<br><br>