Membuat Teks Berjalan Pada Delphi 7

Assalamualaikum Wr. Wb

Hari ini kita berbagi lagi dengan tema yang beda lagi, yaitu gimana cara membuat teks berjalan pada Borland Delphi 7, memang sepele sih pembahasan kita ini tapi gk ada salahnya jika kita menggunakan teks berjalan ini untuk memperindah program kita saat Sidang PKL/ TA/ SKRIPSI/ PROYEK Lainnya :D

lanmgsung aja ke titik permasalahannya, bukalah Borland Delphi anda yang ada di PC/ Laptop kemudian siapkan 1 label d an 1 timer, pada label 1 di propertiesnya terserah anda ganti apa pada captionnya sesuai kebutuhan anda, setelah selesai kemudian kklik 2 kali pada timer 1 kemudian masukkan coding seperti dibawah ini :

procedure TFutama.Timer1Timer(Sender: TObject);
begin

if Label1.Left >= image1.Width then

Label1.Left := 8

else

Label1.Left := Label1.Left + 6;
end;
end.

(Saya menggunakan image1 karena kebetulan itu contoh saya, dan itu terserah kebutuhan anda).

setelah selesai menulis coding diatas, perhatikan interval yang ada diproperties timer 1, PERHATIAN LAGI!!! semakin kecil nilai interval semakin cepat teks tersebut berjalan, dan sebaliknya semakin besar nilai intervalnya semakin lambat teks tersebut berjalan.

Mudah-mudahan bisa bermanfaat dengan baik apa yang sudah ditulis, kurang lebihnya untuk para master saya minta maaf hehe :P

TERIMA KASIH