Membuat Animasi Teks dengan Delphi7

BlogPemrograman : Masih tentang delphi7. Kali ini kita akan membahas bagaimana membuat animasi teks dengan delphi7. Animasi disini yaitu hanya mengubah ukuran huruf saja sampai dengan batas yang telah di tentukan. Komponen terpenting yang kita gunakan yaitu komponen timer yang terdapat dalam tab Win32. Kegunaan timer ini sebenarnya banyak sekali, misalnya membuat animasi, menampilkan jam, tanggal dan lai - lain. Kita hanya akan membahas bagaimana membuat animasi teks. 

Sekarang coba siapkan komponen berikut :

No	Komponen	Name	Text	Caption
1	Label1	lblTeks	-	-
2	Timer1	Timer1	-	-
3	Text11	txtTeks	-	-
4	Button1	cmdRun	-	&Run

Buat tampilan seperti berikut :

Kemudian ketikkan listing ini pada Tombol Run

procedure TForm2.cmdRunClick(Sender: TObject);

begin

  if(txtTeks.Text ='') then

    begin

        messageDlg('Anda belum mengetikkan teks...',mtError,[mbOK],0);

        txtTeks.SetFocus;

        exit;

    end;

  lblTeks.Caption := txtTeks.Text ;

  timer1.Enabled := True;

end;

Doble Klik Pada Timer1

procedure TForm2.Timer1Timer(Sender: TObject);

begin

  num:= num+1;

  lblTeks.Font.Size:= num;

  if(num>=30) then

    begin

      num:= 8;

    end

end;

Doble Klik Pada Form

procedure TForm2.FormCreate(Sender: TObject);

begin

  num := 8;

  Timer1.Enabled:= False;

  Timer1.Interval:= 80;

end;

Buat sebuah variabel Global dengan nama num dengan tipe data integer letakkan persisi di atas implementation

var

  Form2: TForm2;

  num : integer;

implementation

Setelah itu save All dan Run (F9).