Selasa, 04 Juni 2013

Membuat Teks Berjalan Pada Delphi 7

Pertama : Buka aplikasi delphi

Setelah 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.

Tidak ada komentar:

Posting Komentar