Home > Checklistbox > Contoh penggunaan Checklistbox

Contoh penggunaan Checklistbox

December 23, 2011

Checklistbox merupakan salah satu komponen pada delphi yang dapat kita gunakan untuk menjadi list atau daftar.

Tampilannya cukup menarik karena komponen ini merupakan sebuah list yang memiliki item berupa checkbox, sehingga kita bisa menggunakan checklistbox ini menjadi list multi select atau memilih banyak item seperti halnya di checkbox.

Tampilan checklistbox

Komponen ini  terletak pada palette additional

Adapun contoh penggunaannya kali ini adalah kita mencoba mengambil nilai dari checklistbox yang kita pilih untuk ditambahkan ke listbox.

Kita mulai dengan meletakkan komponen checklistbox, listbox dan sebuah button pada form. Kemudian tambahkan item-item pada checklistbox. Kira-kira tampilan formnya seperti dibawah ini

Double klik button1 dan isi script berikut

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

listbox1.Items.Clear;

for i:=0 to checklistbox1.Count-1 do

begin

if checklistbox1.Checked[i] then

listbox1.Items.Add(checklistbox1.Items.Strings[i]);

end;

end;

maksud dari script ini adalah kita lakukan perulangan pada checklistbox sejumlah item yang ada, kemudian kita memilih hanya item-item yang terpilih saja yang akan ditambahkan ke listbox..

setelah program dijalankan maka akan tampak seperti berikut :

________________Selamat_Mencoba________________

Categories: Checklistbox Tags:
%d bloggers like this: