Membuat Animasi Tulisan Berjalan di delphi7

 Membuat Animasi Tulisan Berjalan di delphi7

Berikut Langka-langkah membuat Animasi tulisan berjalam :

1. Tambahkan 1 Tpanel

2. Tambahkan 1 label 

3. Tambahkan 1 Timer 

4.  Klik 2x pada timer, kemudian tuliskan coding dibawah ini:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

    Label1.Left:=Label1.left-1;

    if Label1.Left <1 then Label1.Left:=300

end;

end.

5. Kemudian di Run

Demikianlah cara membuat program animasi Ufo. selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.

                Baca juga : Pengertian, Fungsi dan Cara Kerja IP Address.