create animated text running from top to bottom with delphi 7

Okay .. now we will discuss about creating animated text runs from the top down with delphi7,, as we discussed yesterday, about the text runs from bottom to top...

Create a 'Form' as shown below :

 

Click on 'timer1', then change it property..

timer1  |           interval             |    5          | 

Double click on 'timer1', then copy red text below...

procedure TForm1.Timer1Timer(Sender: TObject);
begin

label1.Top:=label1.Top+1;

if label1.Top>=panel1.height then

label1.Top:=0-panel1.width;

end;

then click run or F9 to try the program ..

if still not understand with this text running,, please leave a comment ..


good luck.......

Share this post