MEMBUAT ANIMASI TEKS PADA DELPHI

    Pada posting kali ini saya akan membagi cara membuat animasi teks pada Delphi 7.
Ini akan memberikan efek teks yang seperti sedang diketik. Mau tahu caranya?
Monggo di lihat...

1. Buka Program Delphi, Tentunya teman - teman sudah tahu. Kalau belum tahu ini caranya : Klik Start => All Programs => Borland Delphi => Delphi 7.0 (Kalau yang teman - teman gunakan versi 7, tapi untuk versi yang lain juga sama)
2. Tambahkan 1 buah komponen Timer dan atur property intervalnya menjadi 10
3. Klik 1X (satu kali) pada form kemudian tekan F12 pada keyboard, pada bagian var teman - teman ketikan listeing berikut :
   

   
   

   

   
   var

   n : integer;
4. Kemudian Kembali Form, klik 2x (dua kali) pada form, pada FormCreate ketikkan listing berrikut :
   procedure TForm1.FormCreate(Sender: TObject);
   begin
   n:=0;
   end;
5. Kemudian kembali lagi ke from, pada komponen Timer klik 2x(dua kali) kemudian masukkan listing berikut ini :
   

   procedure TForm1.Timer1Timer(Sender: TObject);

   begin

   n:=n+1;

   if n=1 then Form1.caption:='M';

   if n=2 then Form1.caption:=Form1.caption + 'E';

   if n=3 then Form1.caption:=Form1.caption + 'N';

   if n=4 then Form1.caption:=Form1.caption + 'U';

   if n=5 then Form1.caption:=Form1.caption + ' ';

   if n=6 then Form1.caption:=Form1.caption + 'U';

   if n=7 then Form1.caption:=Form1.caption + 'T';

   if n=8 then Form1.caption:=Form1.caption + 'A';

   if n=9 then Form1.caption:=Form1.caption + 'M';

   if n=10 then Form1.caption:=Form1.caption + 'A';

   if n=10 then timer1.enabled:=false;

   end;
6. Jika Captionnya ingin bergerak secara berkisinambungan (terus menerus) maka dapat dilakukan dengan cara berikut :
   pada listing
   if n=10 then timer1.enabled:=false;
   digantin dengan
   if n=10 then
   begin
   Form1.caption:=' ';
   n:=0;
   end;
   sehinggga menjadi :
   
   
   procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   n:=n+1;
   if n=1 then Form1.caption:='M';
   if n=2 then Form1.caption:=Form1.caption + 'E';
   if n=3 then Form1.caption:=Form1.caption + 'N';
   if n=4 then Form1.caption:=Form1.caption + 'U';
   if n=5 then Form1.caption:=Form1.caption + ' ';
   if n=6 then Form1.caption:=Form1.caption + 'U';
   if n=7 then Form1.caption:=Form1.caption + 'T';
   if n=8 then Form1.caption:=Form1.caption + 'A';
   if n=9 then Form1.caption:=Form1.caption + 'M';
   if n=10 then Form1.caption:=Form1.caption + 'A';
   if n=10 then
   begin
   Form1.caption:=' ';
   n:=0;
   end;
   end;

Catatan :
Atur Kecepatan pergerakkan dengan mengganti property interval di timer.


Thanks to : yantikaboy.blogspot.com