MEMBUAT TEKS BERJALAN PADA DELPHI 7

MEMBUAT TEKS BERJALAN PADA DELPHI 7

Bahan yang dibutuhkan:

• Panel
• Label
• Timer

Langkah Pertama yang harus dilakukan :

1. Pertama, bukan software / aplikasi Borland Delphi Anda,
    jika sudah masukkan Bahan seperti Panel, Label, Timer
2. Kedua,Caption Panel di kosongkan saja
3. Ketiga, Label dimasukkan kedalam panel dan diberi nama yang Anda inginkan
4. Keempat, Klik 2x pada timer dan masukan script-nya dibawah ini:

procedure TForm1.tmr1Timer(Sender: TObject);<br /> var<br />     AmountofChar : Integer;<br />     FullLine,ScrollingText : String;<br />Begin<br />     ScrollingText := 'This text scrolls to the right and goes on and on...';<br />     Dec(Scroll);<br />       If Scroll<0 then<br />          Scroll := Length(ScrollingText)-20;<br />        For AmountofChar := 1 to 20 do<br />     FullLine := FullLine+ScrollingText[AmountofChar+Scroll];<br />    Form1.Caption := FullLine;<br />  Application.Title := FullLine;<br />End;

Catatan : untuk mengubah laju kecepatan Teks ubah Scroll := Length(ScrollingText)-20; yang kami beri warna merah ubah sesuai keinginan Anda.



Begitu-lah cara membuat teks berjalan menggunakan Borland Delphi, semoga bisa membantu Anda.