Cara Membuat ComboBox Delphi Lengkap Dengan Contoh Program
"Silahkan kunjungi postingan Cara Membuat ComboBox Delphi Lengkap Dengan Contoh Program untuk membaca artikel selengkapnya dengan klik link di atas."
2 min read
Cara Membuat ComboBox Delphi - Dalam tutorial belajar Delphi di blog ini, kita menggunakan Delphi 10.3. Tutorial yang pertama kita akan belajar membuat ComboBox Delphi.Untuk lebih jelasnya, berikut ini cara mudah membuat ComboBox Delphi lengkap dengan gambar menggunakan if else if sederhana.
Cara Membuat Project Baru di Delphi
Klik File > New > New > Windows VCL Application Delphi
Akan muncul Form1 baru yang masih kosong.
Untuk membuat ComboBox, kita hanya bermain dengan Palette jenis Standard. Untuk menampilkan Palette, klik View > Tool Windows > Palette (Ctrl + Alt + P)
Oh ya, studi kasus yang saya pilih untuk membuat program Delphi sederhana dengan fitur ComboBox adalah toko sembako, gudang lebih tepatnya. Jadi, di aplikasi ini, akan ada item barang, kuantitas, dan harga.
Palette Standard yang dibutuhkan meliputi:
- 1 TComboBox
- 2 TEdit
- 3 TLabel
Berikut ini langkah-langkah membuat ComboBox di Delphi.
1. Masukkan Combobox sebagai tempat menyimpan item barang. Klik Palette > Standard > TComboBox
2. Masukkan TEdit sebagai tempat menyimpat harga.
3. Masih di menu Palette ? Standard > TEdit
4. Masukkan TEdit2 sebagai tempat menyimpan kuantitas barang.
5. Masukkan 3 TLabel dengan masing-masing caption Barang, Kuantitas, dan Harga.
6. Klik 2 kali pada ComboBox1 kemudian copy dan paste kode berikut ini.
if ComboBox1.Text='Tepung Terigu' then
begin
edit1.Text:='Rp15.000';
edit2.Text:='10 Kg';
end
else if ComboBox1.Text='Beras' then
begin
edit1.Text:='Rp21.000';
edit2.Text:='11 Kg';
end
else if ComboBox1.Text='Telur' then
begin
edit1.Text:='Rp2.000';
edit2.Text:='100 Butir';
end
begin
edit1.Text:='Rp15.000';
edit2.Text:='10 Kg';
end
else if ComboBox1.Text='Beras' then
begin
edit1.Text:='Rp21.000';
edit2.Text:='11 Kg';
end
else if ComboBox1.Text='Telur' then
begin
edit1.Text:='Rp2.000';
edit2.Text:='100 Butir';
end
Sedikit penjelasan tentang kode di atas. Itu adalah cara mengambil inputan dari combobox Delphi yang kemudian ditampilkan di edit1.Text dan edit2.Text.
Namun ketika dirunning, item-item di atas belum bisa muncul di ComboBox karena belum di atur di Properties. Jadi, kita harus mengisi item ComboBox di Delphi.
Berikut ini cara menambahkan item pada ComboBox Delphi
1. Klik ComboBox1 dan lihat pada jendela Properties, cari Items (TStrings) dan klik ...
2. Akan muncul jendela pop up String List Editor.
3. Masukkan nama-nama Item sesuai dengan yang di kode program.
- Tepung Terigu (Tekan Enter)
- Beras (Tekan Enter)
- Telur (Tekan Enter)
Setelah itu, klik Run dan jalankan program.
 |
| Cara Membuat ComboBox Delphi |
Setelah dijalankan, maka kita pilih Item di ComboBox untuk ditampilkan. Setiap Item yang ditampilkan akan muncul harganya dan kuantitasnya di Edit1 dan Edit2 secara otomatis berdasarkan koding di ComboBox1.
Satu hal yang penting agar item di ComboBox muncul adalah, pada String List Editor ComboBox1, pastikan jangan sampai ada spasi setelah kata terakhir Item. Contohnya Tepung Terigu langsung tekan Enter, begitu juga setelah menulis Beras, jangan ada spasi.
Untuk menambahkan Item barang lengkap dengan harga dan kuantitasnya, tambahkan kode else if di ComboBox1. Misalnya:
else if ComboBox1.Text='Minyak Goreng' then
begin
edit1.Text:='Rp67.000';
edit2.Text:='10 Liter';
end
begin
edit1.Text:='Rp67.000';
edit2.Text:='10 Liter';
end
Untuk program menampilkan data dari database ke combobox Delphi, nanti kalau ada waktu kita buat.
Untuk contoh program Delphi sederhana lainnya, silahkan lihat yang satu ini: Contoh Aplikasi If Else Delphi
Demikianlah cara membuat ComboBox di Delphi dan menampilkannya lengkap dengan contoh program yang mudah dipahami. Semoga bermanfaat!