TULISAN BERJALAN MENGGUNAKAN BORLAND DELPHI 7

Assalamualaikum wr.wb . . .
Sebenarnya, tulisan berjalan itu seperti apa sih ?
y sudah, silahkan di praktekan sendiri . . . jadi biar puas, sama hasilnya.
kan kalo di html sih, cuman pake <marquee>TULISAN BERJALAN</marquee> . . .
Nah kalo di Borland Delphi 7, kita membutuhkan beberapa komponen untuk membuat Tulisan berjalan . .
1. Komponen yang dibutuhkan
    - Label  : Sebagai text untuk di gerakan . . .
    - Panel  : untuk pantes-pantes aja sih..tapi tujuannya biar rapih kayanya. . .
    - Timer : Nah yg ini sangat dibutuhkan, karena itu sebagai waktu atau interval text yang dijadikan berjalan ( komponen ini ada di Tab Menu "System" ).

2. ini adalah desain saya, jika punya desain sendiri, y silahkan dikembangkan..
    

Seperti gambar diatas, desainnya..kenapa saya taruh dibawah ?
Y biar keliatan kaya IKLAN, kalo Project di RUN . . .
...
Pengaturan pada komponen,
a. Label : beri nama (Liklan)
b. Panel : Align (Bottom)
c. Timer1 : interval (5), dan beri nama (Tiklan)

// saya menggunakan interval menjadi 5 di Timer bertujuan untuk mempercepat, gerakan text saat berjalan..tapi anda bisa mencoba nilai berapapun ko'...

Tampilan Komponen, bisa dilihat dibawah ini ;

1). Tiklan (Timer)

2). Liklan (Label)

3). Panel1

Dan ini listing kodingnya :

procedure TFmenu.TiklanTimer(Sender: TObject);
var bataskiri, bataskanan :integer;
begin
    bataskiri:=Panel1.Left - Liklan.Width;
    bataskanan:=Panel1.Left + Panel1.Width;
    if Liklan.Left=bataskiri then
    begin
    Liklan.Left:=bataskanan;
 end
 else
 begin
    Liklan.Left:=Liklan.Left-1;
 end
 end;


..........................................................................................................................................
Terimakasih atas partisipasinya, jika postingan saya ada kesalahan, saya minta maaf, dan silahkan beri saran ataupun kritik . . .
#ERU