Animasi Teks Efek Mesin Ketik Pada Delphi

 

 

      Sebelumnya kita telah belajar membuat efek blink pada teks, dan sekarang kita akan membuat efek mesin ketik pada Judul Form ataupun pada caption label. Namun sebelumnya kita perlu tahu dulu apa yang dimasud dengan efek mesin ketik. Efek Mesin Ketik maksudnya adalah efek pada teks yang akan muncul satu per satu seperti lagi di ketik. Efek ini kalau dikalangan website banyak digunakan untuk judul website atau blog, namun disini kita akan menggunakannya untuk caption label atau pun caption form sehingga saat dijalankan judul form atau label yang kita beri animasi ini akan muncul perhuruf seperti lagi di ketik. Oke kita langsung praktekkan yaaa,,, caranya yaitu :

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 berikut :

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.
Itu saja dulu mohon sarannya, kalau ada kesalahan mohon diberitahu dan dimaafkan karena saya juga masih dalam pembelajaran.

 

sumber : http://borland7.blogspot.com