Program Animasi Tulisan Berjalan

Berikut ini adalah cara untuk membuat animasi tulisan berjalan sederhana dengan menggunakan Delphi 7.
Pertama siapkan 1 label, 1 timer, dan 1 image. Pada label 1 di propertiesnya pada captionnya tuliskan kata-kata sesuai dengan keinginan anda, misalnya: SELAMAT DATANG DI BLOG SAYA, Untuk image 1 biarkan kosong pada propertisenya. Setelah selesai kemudian klik 2 kali pada timer 1 kemudian masukkan coding seperti dibawah ini :

procedure TFutama.Timer1Timer(Sender: TObject);
begin

if Label1.Left >= image1.Width then

Label1.Left := 8

else

Label1.Left := Label1.Left + 6;
end;
end.

Dan ini adalah Screenshot dari program animasi teks berjalan yang telah saya buat...

 Untuk program lengkapnya dapat di download di http://www.4shared.com/file/Du6L626-/Program_tulisan_berjalan.html

Selamat mencoba...