Beajar Membuat Text Berjalan

Kita bisa memprcantik tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langka-langkaya adalah sebagai brikut :

1. Buatlah form sepeti pada gamar 16. 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.