Membuat Teks Berjalan

Bissmillah....
Sahabat Disini kita mencoba membuat program sederhana dari Delphi yaitu Membuat Teks Berjalan,
Untuk membuat objek seperti teks atau gambar, shape atau objek lainya berjalan pada delphi dapat digunakan komponen Timer, dan objek yang akan dijalankan. Buatlah form sebagai berikut :

Atur Properties Timer dengan internal sesuai dengan kecepatan yang diinginkan, semakin kecil nilai Interval kecepatan objek akan semakin cepat. Pada contoh ini diisi nilai Interval = 100 atau 0,1 detik
Buatlah kode program sebagai berikut pada saat tombol jalan diklik dan tombol berhenti diklik sbb :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left :=  Label1.Left – 5;
if  Label1.Left < -110 then
Label1.Left := 400;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := False
end;
end.

Lalu running program dan hasilnya sebagai berikut :

 

Semoga bermanfat sahabat.... Wass