Tuesday, 20 March 2012

Membuat Teks Berjalan pada Delphi

Heiii temen2.... yg lagi pengen belajar Bahasa Pemrograman Delphi....
Ini adalah postingan pertama saya tentang bahasa pemrograman. Pada postingan pertama ini saya ingin sharing tentang membuat teks berjalan pada aplikasi delphi.
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.

Selanjutnya, silahkan anda kembangkan sendiri.

Yang mau download source codenya, lengkap dengan tutorialnya, silahkan download di sini
Semoga bermanfaat.....

Jangan lupa komentarnya......

Terimakasih...!!!!!


Kebijaksanaan tidak lagi merupakan kebijaksanaan apabila ia menjadi terlalu angkuh untuk
menangis, terlalu serius untuk tertawa, dan terlalu egois untuk melihat yang lain kecuali
dirinya sendiri.
UbaidRahman