Membuat Teks Berjalan Pada Delphi 7

CARA 1
langsung aja ke titik permasalahannya, bukalah Borland Delphi anda yang ada di PC/ Laptop kemudian siapkan 1 label d an 1 timer, pada label 1 di propertiesnya terserah anda ganti apa pada captionnya sesuai kebutuhan anda, setelah selesai kemudian kklik 2 kali pada timer 1 kemudian masukkan coding seperti dibawah ini :

procedure TFutama.Timer1Timer(Sender: TObject);
begin

if Label1.Left >= image1.Width then

Label1.Left := 8

else

Label1.Left := Label1.Left + 6;
end;
end.

(Saya menggunakan image1 karena kebetulan itu contoh saya, dan itu terserah kebutuhan anda).

setelah selesai menulis coding diatas, perhatikan interval yang ada diproperties timer 1, PERHATIAN LAGI!!! semakin kecil nilai interval semakin cepat teks tersebut berjalan, dan sebaliknya semakin besar nilai intervalnya semakin lambat teks tersebut berjalan.

Mudah-mudahan bisa bermanfaat


Cara 2
Kita bisa memperindah tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langka-langkaya adalah sebagai brikut :
1. Buatlah form . Gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.

2. Setelah selesai membuat form doble click timer1 dan masukan code berikut pada code editor.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;

3. Setelah selesai deh tinggal jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard.

Judul: Membuat Teks Berjalan Pada Delphi 7; Ditulis oleh mazmy; Rating Blog: 5 dari 5