Combobox Dinamis pada Delphi

Komponen:

1. Tiga Combobox. Combobox1, Combobox2, Combobox3.

Properties:

1. Combobox1:

  • Klik Items  lalu isikan BUAH pada baris pertama lalu enter dan isikan BUNGA pada baris kedua. Untuk lebih jelas cara menambahkan item pada Combobox bisa lihat disini.

Events:

1. Combobox1:

  • Cari OnChange lalu klik 2 kali dan masukkan kode program dibawah ini:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if ComboBox1.ItemIndex = 0 then
 begin
   ComboBox2.Clear;
   ComboBox3.Clear;
   ComboBox2.Items.Add('MANGGA');
   ComboBox2.Items.Add('JERUK');
 end
 else if ComboBox1.ItemIndex = 1 then
 begin
   ComboBox2.Clear;
   ComboBox3.Clear;
   ComboBox2.Items.Add('MAWAR');
   ComboBox2.Items.Add('MELATI');
 end;
end;

2. Combobox2:

  • Cari OnChange lalu klik 2 kali dan masukkan kode program dibawah ini:
procedure TForm1.ComboBox2Change(Sender: TObject);
 begin
 if (ComboBox1.ItemIndex = 0) AND (ComboBox2.ItemIndex = 0) then
 begin
   ComboBox3.Clear;
   ComboBox3.Items.Add('MANGGA MANIS');
   ComboBox3.Items.Add('MANGGA ASEM');
 end
 else if (ComboBox1.ItemIndex = 0) AND (ComboBox2.ItemIndex = 1) then
 begin
   ComboBox3.Clear;
   ComboBox3.Items.Add('JERUK MANIS');
   ComboBox3.Items.Add('JERUK ASEM');
 end
 else if (ComboBox1.ItemIndex = 1) AND (ComboBox2.ItemIndex = 0) then
 begin
   ComboBox3.Clear;
   ComboBox3.Items.Add('MAWAR MERAH');
   ComboBox3.Items.Add('MAWAR PINK');
 end
 else if (ComboBox1.ItemIndex = 1) AND (ComboBox2.ItemIndex = 1) then
 begin
   ComboBox3.Clear;
   ComboBox3.Items.Add('MELATI PUTIH');
   ComboBox3.Items.Add('MELATI HITAM');
 end;
 end;

Setiap Items yang ditambahkan ke dalam Combobox memiliki Index masing-masing. Index pada baris pertama bernilai “0” dan pada baris ke dua bernilai “1”, seterusnya sampai ke baris-baris berikutnya. Jadi pada Combobox1.item.index = 0 sama saja dengan baris pertama yang berisi item BUAH dan seterusnya untuk item yang lain.

Combobox2.clear; untuk membersihkan item yang terdapat pada Combobox2.

Tampilannya seperti gambar dibawah ini:

combobox_dinamis

Download source code disini.

Iklan

, , , , , , , ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s

%d blogger menyukai ini: