Halo, selamat pagi/siang/sore/malam. Sudah lama tidak
posting, baru kali ini bisa menyempatkan waktu untuk berbagi ilmu sedikit.
Postingan pertama di Sub Menu Tutorial Delphi ini, saya berbagi tutorial
membuat loading. Meskipun tutorial ini sudah sangat populer, namun tidak ada
salahnya dalam berbagi ilmu, ini sangat bermanfaat sekali bagi pemula.
2.
Di Form1 yang otomatis muncul saat Program
Delphi dibuka, kita tambahkan satu buah Label di tab Standar. Ganti Caption di Properties
sesuai keinginan, saya contohkan disini kita ganti dengan “Loading”.
3.
Tambahkan ProgressBar di tab Win32. Nah ini
komponen utama dalam tutorial kali ini.
4.
Tidak lupa, masukkan satu buah Timer di tab
System. Di komponen inilah kita akan menempatkan kode atau script.
5.
Tambahkan lagi Form2. Jadi, form ini akan muncul
apabila ProgressBar telah mencapai 100% atau selesai.
6.
Klik 2 kali atu double click pada icon Timer1.
Masukkan kode berikut :
7.
Sehingga apabila di eksekusi atau di play atu
juga tekan F5, akan menghasilkan seperti berikut.
8.
Apabila kamu tidak suka dengan tampilan
progressbar seperti itu, kamu bisa mengubahnya dengan menambahkan komponen XP
di tab Win32. Setidaknya tampilan ini lebih keren dan lebih modern. Maka akan
berubah seperti ini
Cukup singkat dan mudah bukan ? sampai juga
di tutorial selanjutnya.
Source Code :
Source Code :