动态字幕的深入

Question

怎么实现动态字幕，要求是字幕由下而上的滚动，当字幕全部滚完后再重新由下而上滚动。

Answer 1

加一个DBIMMAGE1，一个STATICTEXT1，把位置和大小设好，然后在FORM1中加一个TIMER，设TIMER的ENABLE为TRUE，INTERVEL为10，在ONTIMER中写：
if (statictext1.left<dbimage1.width+dbimage1.left)then
statictext1.left:=statictext1.left+3
else
statictext1.left:=dbimage1.left;
end;这是从右到左移的，从上到下是改left为top，width为heigth