Membuat marquee vertikal berulang

Membuat Marquee Vertikal Berulang

Membuat marquee vertikan dengan arah gerakan berulang, menggunakan nilai property top Label1
langsung saja kita ambil  1 TLabel dan 1 TTimer.

1. Isi nilai properti top pada Label1 menjadi 0
2. OnTime pada Timer1 tulis sebagai berikut :


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Top := Label1.Top + 5;
if Label1.Top = 200 then
   Label1.Top := -10;
end;

Jalankan program dengan menekan F9



Posted via Blogaway