Membuat Marquee Vertikal Berulang
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
0 komentar:
Post a Comment