Combo Box
Combo Box, tentunya kita sudah sering mendengar kalimat ini, Combo Box merupakan salah satu elemen form berbentuk kotak yang apabila diklik akan menampilkan List menu kebawah (Drop Down List). Kita sering melihat elemen tersebut dalam berbagai aplikasi entah itu basis dekstop atau Web bahkan Mobile sekalipun. Elemen tersebut biasanya digunakan dalam form pendaftaran akun yang memuat lebih dari satu pilihan.
ok kita langsung saja ke pembahasan :
untuk menampilkan elemen combo box kita aka menggunkan memo.
pertama kita buat dulu interfaceny, contoh :
Pada interface di atas, elemen label nama sejajar dengan elemen Edit dan elemen label profesi sejajar dengan label combo box.
selanjutnya menambahkan teks pilihan pada combo box, untuk menambahkan teks pertama kita select elemen combo boxnya kemudian pilih Obeject Inspector lalu pilih Events dan double clik pada events OnDblClick. untuk lebih jelasnya dapat dilihat pada gambah di bawah.
kemudian kita dapat memasukan script pada procedure TForm1.ComboBox1DblClick-nya.
*
ComboBox1.Items.Add('Dokter');
ComboBox1.Items.Add('Guru');
ComboBox1.Items.Add('Perawat');
ComboBox1.Items.Add('Apoteker');
ComboBox1.Items.Add('Petani');
ComboBox1.Items.Add('Pengusaha');
ComboBox1.Items.Add('Guru');
ComboBox1.Items.Add('Perawat');
ComboBox1.Items.Add('Apoteker');
ComboBox1.Items.Add('Petani');
ComboBox1.Items.Add('Pengusaha');
*
lalu pada button 1 kita double klik lagi agar masuk pada procedure TForm1.Button1Click, setelah masuk kita dapat memasukan script :
*
Memo1.Text := 'Hello ' + Edit1.Text + ' !';
Memo2.Lines.Insert(0, (Format('Profesimu adalah %s ',
[ComboBox1.Selected.Text, ComboBox1.ItemIndex])));
Memo2.Lines.Insert(0, (Format('Profesimu adalah %s ',
[ComboBox1.Selected.Text, ComboBox1.ItemIndex])));
*
selanjutnya kita running untuk mengetahui hasilnya.
pada elemen edit ketik nama dan pada elemen combo box kita pilih profesinya :
berhasil......
Bang update tutorial lewat vidio dong
ReplyDeleteada pak lewat channel youtobe https://www.youtube.com/watch?v=xKQzsJBVRTM
Delete