Wednesday, April 6, 2011

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.......

No comments:

Post a Comment