Banyak email yang ke saya menanyakan bagaimana cara membuat objek berjalan pada pemrograman Delphi. Agar lebih mudah dalam menjawab saya buatkan saja tutorial sederhana bagaimana cara membuat objek yang bergerak dengan memanfaatkan komponen Timer.

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 :

form_teks_berjalan.JPG

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 :

hasil_teks_berjalan.JPG

Download Contoh Program dan Source Code Di sini

http://www.ziddu.com/downloadlink/9351512/TeksBerjalan.rar

About these ads