Kali ini tutorial ANimasi Tulisan Berjalan dengan Delphi, dengan bergerak kekiri dan kekanan, kayak mantul gitu.... aplikasi ini menggunakan borland Delphi 7, dengan komponen :

1. TTimer
2. TLabel
3. dan TPanel

Aplikasi ini cukup sederhana dengan code program yang sangat simple dan mudah untuk digunakan dalam menambah atau mempercantik tampilan di FORM delphi...
langsung ke TKP aja ya....

Pertama :

Buat sebuah form di delphi
masukan komnen seperti diatas ke dalam form

Seperti screenshot dibawah ini :

isi code Program sperti berikut :

Pada Variable isi dengan

var
  Form1: TForm1;
  a,b: BYTE;

implementation

{$R *.dfm}


Note : tulisan merah adalah Variable untuk menjalankan perintah

Kedua

isi code berikut pada TTimer

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if      Label1.Left > 550 then b:=1
else if Label1.Left < 2   then b:=0;

if b=0 then Label1.Left:=Label1.Left+1
else Label1.Left:=Label1.Left-1;
end;


Ketiga :

RUN > F9

Hasilnya :









untuk lebih jelasnya silahkan download sourcecode dibawah ini...

Via 4shared







Via Mediafire