Membuat Teks Berjalan

Setelah mengikuti perkuliahan Interaksi Manusia dan Komputer, muncul suatu permasalahan bagaimana membuat teks berjalan pada Delphi 7. Mungkin sepele, tapi teks berjalan dapat memperindah program kita saat sidang TA/PKL/SKRIPSI ataupun PROYEK.

Mungkin langsung saja ke permasalahannya. yang pertama bukalah program delphi anda di PC atau laptop. Kemudian siapkan 1 Label, 1 Timer, dan 1 Image untuk memperindah tampilan kita. Pada Label 1 dipropertisnya terserah anda ganti apa aja pada captionnya sesuai yang anda inginkan, setelah itu klik 2 kali pada timer dan masukkan coding dibawah ini :


procedure TForm1.Timer1Timer(Sender: TObject);

begin
if Label1.Left>=Image1.Width then
Label1.Left:=-8
else
Label1.Left:=Label1.Left+6;
end;

end.

maka akan muncul tampilan seperti di bawah ini :