Membuat ScomboBox Atau Pilihan Agar Simpel Pada Delphi 7 Beserta Gambar
Pada Kesempatan Kali Ini, Saya Akan Mempresentasikan Bagaimana Cara Membuat Pilihan Pada Bug Pada Tepatnya Pada ScomboBx. Yuk Simak Presentasi Saya Berikut Ini
Persiapan-Persiapan
- Doa Terlebih Dahulu
- ScomboBox
- SEdit
- Koding
- Ketelitian
Langkah Langkah
1. Buka Delphi 7 Anda. Kemudian Klik Scombobox DiBawah Ini:
2. Lalu Masukkan ScomboBox Pada Form Yang Sudah Disediakan,Kemudian Ganti NamaSesuai Selera Anda. Letak Terserah. Lihat Di Bawah Ini.
3. Kemudian Klik Nama ITEM. Lihat Gambar Disini :
4. Setelah Klik Item. Maka Akan Muncul Seperti Form Baru Untuk Memberikan Nama Terserah Sesuai Selera Anda. Kemudian Klik Ok. Lihat Gambar Supaa Jelas:
5. Setelah Itu Klik 2 Kali Pada Scombobox, Maka Anda Harus Memasukkan Koding. Tenang Aja Sudah Saya Siapkan.
6. Berikut Ini Codingnya
if scombobox1.Text='BUG 1' then beginsedit1.Text:= '45.32.57.194';sedit2.Text:= '3128';end;if scombobox1.Text='BUG 2' then beginsedit1.Text:= 'SQUID MBAH';sedit2.Text:= 'Port';end;if scombobox1.Text='BUG 3' then beginsedit1.Text:= 'SQUID MBAH';sedit2.Text:= '80';
7. Ohya Saya Lupa Memaskkukan Sedit Pada Form. Untuk Itu Silahkan Ikuti Petunjuk Dibawah ini:
8. Setelah Memasukkan Sedit. Lalu Klik Run
9. Ketika Progam Sukses Maka Tampilan Seperti Ini. Klik Pilih Maka Akan Muncul Tulisan Yang Tadi Sudah Ditulis. Lihat Gambar Berikut Ini.
10. Ketika Anda Memilih Seperti Contoh BUG 1. Maka Akan Muncul Pada SEdit Host Dan Port Yang Sudah Ditulisakan Tadi
NB : Kalau Di Menu SEdit Tidak Bisa Maka Ganti Dengan TEdit
Semoga Bermanfaat