TCombobox

//TCombobox

{

TCombobox Adalah Sebuah Komponen Yang Berguna Sebagai Media Pilihan...

Media Pilihan Yang Dijadikan Dalam 1 List...
Model Dari Komponen Ini Berbentuk List Yang Dapat DiDropdown...

Contohnya.
Seperti Pada Pilihan2 Materi , Anda Dapat Memasukkan Kedalam TCOmbobox.

Dan Untuk Mengisi List TCombobox Ada Pada Properties ("ITEMS")

==========================================

"PENTING"
TCombobox memiliki itemindex , Artinya Index dari item ... Atau urutan Index yang dipilih

Itemindex dimulai dari 0 ...
Jika anda memilih items urutan 1 , maka itemindex.nya = 0
Jika anda memilih items urutan 2 , maka itemindex.nya = 1
Jika anda memilih items urutan 3 , maka itemindex.nya = 2

Nah Seperti itulah itemindex...
Sedangkan Jika Tidak ada pilihan... Maka Itemindex.nya = -1
==========================================


Contoh Menggunakan TCombobox...
Sebelumnya Buat 2 Buah Button Dan 1 Buah Tcombobox...

Dan Masukkan Kode Kedalam TBUtton1...

}

// Kasus 1 , Menambahkan Items saat program berjalan
//======================================

procedure TForm1.Button1Click(Sender: TObject);
Begin

Combobox1.items.clear ;    // Bersihkan - items - combobox1
Combobox1.items.add('Items1') ; // Tambahkan('ISI') - items - Combobox1
Combobox1.items.add('Items2') ;
Combobox1.items.add('Items3') ;

End;

//======================================




// Pada Button2 ...

procedure TForm1.Button1Click(Sender: TObject);
Begin

if combobox1.itemindex > -1 then
Showmessage( Combobox1.items [Combobox1.itemindex]  );

End;


//======================================

//Artinya
{

Jika itemindex.combobox1 > -1 maka
Tampilkanpesan ( Items berdasarkan index combobox1 , pada combobox1 ) ...

}