Teks Berjalan dengan Delphi 7

Kali ini saya akan menggunakan Borland Delphi untuk membuat sebuah animasi teks, yaitu animasi teks berjalan dari kanan ke kiri.
Untuk membuat animasi ini kita membutuhkan komponen Timer, Label, GroupBox, Button.
Timer, komponen yang akan menjalankan Label yang nantinya akan bergerak.
Label, kompponen yang dijadikan sebagai objec animasi teks berjalan.
GroupBox, komponen yang digunakan untuk sebagai pembatasawal dan akhir preview teks berjalan.
Button, komponen untuk mengakhiri aplikasi atau menutup aplikasinya.

1. Untuk  langkah pertama, buat desain form sederhana seperti dibawah ini.

• Timer, bisa anda lihat di bagian system

• Button, Label, GroupBox seperti biasa dapat anda lihat di standard

Caption Button anda ganti dengan keluar.
Caption Label terserah anda ingin di tulis apa.

2. Memasukkan sourcecode pada komponen timer
    Klik 2x pada komponen timer ini, lalu masukkan sourcecode sebagai berikut.

begin
Label1.Left := Label1.Left -1; //Nilai (2) tingkat kecepatan bergerak
if label1.Left <= -500 then
label1.Left := 422;
end;



3. Mengatur Properties timer.

Ubah nilai interval yang ada pada properties timer, makin kecil nilainya, maka kecepatan gerak teks akan semakin cepat pula, disini saya mengisikan angka 1, dan begitu sebaliknya, makin besar angka yang dimasukkan, maka semakin melambat gerak teks tersebut.

4. Memasukkan sourcecode pada komponen Button
    Klik 2x pada button, dan masukkan code sebagai berikut:

begin
Application.terminate;
end;

Tombol ini untuk menutup aplikasi teks berjalan ini.