Membuat animasi teks di delphi Bag. 2

Pada tutorial kali ini saya ingin melanjutkan pembuatan  program animasi teks yang berkurang hurufnya satu demi satu sampai dengan huruf terakhir kemudian kembali ke teks semua, akan tetapi berkurangnya huruf di mulai dari huruf yang paling depan, misalnya teks “ANIMASI” pada saat program dijalankan maka teks “ANIMASI “ akan berkurang dimulai dari huruf “A”, kemudian “N”, lalu “I”, begitu seterusnya sampai huruf tersebut habis. komponen yang dibutuhkan pun sama seperti pada membuat animasi bag 1  yaitu Timer dan label.

Berikut adalah langkah – langkahnya :

1.       Tambahkan sebuah label yang ada di tab standart dan komponen timer yang ada di tab System, seperti gambar di bawah ini :

Dengan mengubah property di form1 pada bagian caption menjadi “Animasi Teks”, 

Dan pada property label diubah pada bagian caption menjadi “ANIMASI” dengan font size 60.

2.        Setelah property pada bagian form dan label sudah di ubah, sekaran kita mulai memasukkan source codenya.

3.       Masukkan source code seperti gambar di bawah yaitu pada bagian variable.

4.       Kemudian kembali ke form desaigner dengan menekan tombol F12, klik pada bagian formnya kemudian pilih event --> Oncreate;

Klik dua kali kemudia masukkan source code berikut ini : 

5.       Setelah selesai, kembali ke form desainer dengan tekan tombol F12, klik dua kli(2x) pada komponen timer sehingga masuk ke jendela coding lagi, kemudia ketikan source code di bawah ini :

6.       Setelah selesai memasukkan source code di atas, klik F9 atau tombol run untuk menjalankan dan lihat hasilnya.

untuk tutorialnya dapat didownload disini
untuk contoh programnya dapat didownload disini

Selamat mencoba