Kamis, 13 Desember 2012

Membuat Teks Berjalan Pada Delphi 7



Membuat Teks Berjalan Pada Delphi 7

Saya akan berbagi yaitu gimana cara membuat teks berjalan pada Borland Delphi 7
Ok ! Langsung saja....

Pertama Anda buka aplikasi delphi,


Selatah itu, komponen yang di butuhkan untuk membuat teks berjalan yang sangat sederhana ini adalah Label dan Timer.

Label ini ada di bagian standard, untuk Timer ada di bagian System.

Kemudian buatlah desain form seperti dibawah ini ato terserah Anda mau seperti apa.


Setelah itu, klik 2x komponen timer tersebut, dan isi dengan kode dibawah ini.

  Label1.Left:=Label1.Left-5;
  if Label1.Left<20 then Label1.Left:=400;

kemudian ganti propertise interval untuk timer dari 1000 menjadi 2(untuk kecepatan teks).
Kalo udah, silahkan tekan F9 untuk menjalankannya, dan lihat hasilnya.

setelah selesai menulis coding diatas, perhatikan interval yang ada dipropertis 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 bermanfaat.




0 Comments:

Post a Comment



By :
Free Blog Templates