Membuat Marquee Horizontal Bolak Balik

Membuat Marquee Horizontal Bolak Balik

Membuat text bisa bergerak dari kiri menuju ujung kanan, setalah mencapai ujung kanan text bergerak kekiri  sehingga text bergerak dari kanan dan kekiri Bolak Balik. Komponen yang digunakan TLabel dan TTimer.

1. Gunakan TLabel, dan atur nilai property dari label1 left = 0 dan top = 65
2. Deklarasi var seperti berikut :

var
  Form1: TForm1;
  n:integer;
  kanan,kiri: boolean;

3. Bagian OnCreate didefinisikan nilai awal kedua variabel diatas, dan menggerakkan Label1    kekanan dulu 
    maka nilai variabel diberi nilai true dan kekiri false, sehingga tulis OnCreate seperti berikut:

procedure TForm1.FormCreate(Sender: TObject);
begin
kanan := true;
kiri := false;
n := 0;
end;

4. OnTimer  pada Timer1 tulis program berikut :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if kanan = true then
   Label1.Left := Label1.Left + 5;
if kiri = true then
   Label1.Left := Label1.Left - 5;
if Label1.Left = 200 then
   begin
   kiri := true;
   kanan := false;
   end;
if Label1.Left = 0 then
   begin
   kiri := false;
   kanan := true;
   end;
end;

Posted via Blogaway