Membuat List angka sederhana menggunakan Dhelpi 7

 

 

 

 

 

 

 

 

Assalamualaikum wr.wb Shobat kali ini saya akan share sebuah aplikasi sederhana yang mungkin berguna hehehe langsung aza ya kali ini saya akan menggunkan combobox dan sebuah label yang mana listbox tersebut menentukan nilai pada label tersebut nah langsung saja ke TKP ya hehehe

1. pertama-tama klik 2 kali pada comboboxnya lalu masuk didalam item pada Propertis lalu buat angka 1 2 dan setersunya terserah anda agar diintegrasikan pada label tersebuat

2. klik 2 kali didalam listbox itu dan masukan koding dibawah ini :

procedure TForm1.cbb1Change(Sender: TObject);
begin
case cbb1.ItemIndex of//MENGGUNAKAN CASE UNTUK MENENTUKAN LIST ITEM SESUAI URUTUAN DARI O
0 : lbl1.Caption := ‘satu’;
1 : lbl1.Caption := ‘dua’;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cbb1.ItemIndex := -1; //APABILA LIST ITEMNYA -1 MAKA AKAN MENJADI DEFAULT LABELNYA
end;

end.

Screen shootnya :

Semoga bermanfaat dan terimakasih atas kunjungannya Wasalamualaikum wr.wb

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 )

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s