Komponen ComboBox pada Delphi

Komponen ComboBox atau yang biasa disebut Drop-Down adalah komponen standar yang disediakan oleh Delphi. Dan mungkin ini komponen standar tuk seluruh aplikasi, entah web-based atau desktop-based. Komponen ini terletak pada bagian Standard, sebelum bagian Additional. Berikut gambar yang menunjukkan letak dari komponen ComboBox tersebut :

Seperti biasa, kalau cuma membaca saja, pastinya akan lebih sulit untuk dimengerti. Oleh karena itu, yuk praktek sambil dibaca 🙂

Disini kita akan praktek membuat sebuah program menggunakan combobox untuk menampilkan kata yang dipilih dengan combobox. Tampilan form awalnya adalah sebagai berikut :

Lalu atur properties tiap komponen seperti berikut :

Komponen	Properties	Pengaturan
ComboBox1	Text	Pilih salah satu
Label1	Caption	Hasilnya disini

Maka seperti inilah akhirnya :

Sebelum sampai ke tahap coding, kita harus memberi nilai apa saja untuk ComboBox tersebut. Caranya aktifkan ComboBox-nya, kemudian pada Object Inspector pilih Items dan klik tombolnya. Isilah dengan 3 kata saja. Tiap kata dipisahkan dengan ‘enter’. Contoh :

Okai, kita cek dulu persiapannya :
– Desain form – ready!
– List item – ready!
Kalo gitu, mulai ke codingnya!

Klik dobel pada ComboBox1, kemudian tulis code berikut (yang tidak tebal)

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
If ComboBox1.ItemIndex = 0 then
Label1.Caption := ComboBox1.Items[ComboBox1.ItemIndex]
else If ComboBox1.ItemIndex = 1 then
Label1.Caption := ComboBox1.Items[ComboBox1.ItemIndex]
else If ComboBox1.ItemIndex = 2 then
Label1.Caption := ComboBox1.Items[ComboBox1.ItemIndex]
end;

Hasil dari program kali ini adalah seperti ini :

———–

Bisa juga seperti ini, hasilnya silahkan dilihat sendiri kemudian dipahami yaa..

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
If ComboBox1.ItemIndex = 0 then
Label1.Caption := ‘AaEzha.com’
else If ComboBox1.ItemIndex = 1 then
Label1.Caption := ‘Tutorial’
else If ComboBox1.ItemIndex = 2 then
Label1.Caption := ‘Delphi’
end;

———–

Masih butuh penjelasan? yuk bahas disini saja.