Membuat Teks Berjalan (Running Text) Dengan Pemrograman Delphi

Sering kali kita melihat di televisi atau di website, terdapat teks yang berjalan atau disebut juga dengan running text. Mungkin sebagian besar sudah mengetahuinya. Nah, Pada kesempatan kali ini kita akan membahas tentang bagaimana membuat teks berjalan dengan menggunakan pemrograman delphi. Dalam tutorial ini saya menggunakan Delphi 2007.

Langkah-langkah pembuatannya sebagai berikut :

Langkah 1

Jalankan program Delphi anda.

Langkah 2

Buatlah sebuah Form baru : Klik Menu File > New > pilih VCL Form Application.

Maka akan tampil jendela seperti pada gambar berikut :

Langkah 3

Masukkan sebuah komponen Label dan sebuah komponen Panel pada palette standar ke dalam Form. Pastikan letak komponen Label berada diatas komponen Panel agar teks yang berjalan tidak keluar dari batas komponen panel.

Masukkan sebuah komponen Timer pada palette System ke dalam form :

Langkah 4

Aturlah desain tampilan seperti berikut :

Langkah 5

Aturlah properties dari masing-masing komponen pada jendela object inspector.

Langkah 6

Double klik pada komponen Timer,  maka akan keluar halaman editor Code,

Ketikkan Kode berikut pada prosedur Timer1 :

Langkah 7

Jalankan Program ( F9),

Untuk mengatur kecepatan teks, tinggal mengganti interval timer pada prosedur Timer.