Membuat Teks Berjalan

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Kita bisa mempercantik tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langkah-langkahnya adalah sebagai brikut :
1. Buatlah form,gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.

2. Setelah selesai membuat form doble click timer1 dan masukan code berikut pada code editor.

procedure TForm1.Timer1Timer(Sender: TObject); 

begin 

if label1.left = -245 then label1.Left := 280; 

Label1.Left := Label1.Left-1; 

end;

3. Setelah selesai jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard. 

Simple bukan.....