RADIOBUTTON
RadioButton digunakan untuk menampilkan sebuah pilihan dimana user dapat mengganti nilainya
dengan True atau False. Radiobutton digunakan untuk menampilkan sekumpulan pilihan dimana user
hanya boleh memilih satu pilihan saja. Untuk mengakses apakah sebuah radio button dipilih oleh user,
property yang digunakan adalah property CHECKED. Jika property CHECKED bernilai True berarti objek
tersebut dipilih oleh user. Jika anda mempunyai 2 pilihan yang saling terpisah, maka groupkan tiap
pilihan‐pilihan tersebut dengan GroupBox.
Contoh aplikasi menggunakan RadioButton
tombol Cari Harga diisi dengan script berikut :
procedure TForm1.Tbl_Cari_HargaClick(Sender: TObject);
begin
if RB_Jakarta.Checked = True then
E_Harga.Text:='10000'
else
if RB_Yogyakarta.Checked then
E_Harga.Text:='15000'
else
if RB_Surabaya.Checked then
E_Harga.Text:='20000'
else
E_Harga.Text:='0';
end;
Jika dieksekusi akan menghasilkan tampilan seperti di bawah ini :
COMBOBOX
Combobox digunakan untuk menampilkan daftar pilihan yang ditampilkan
berbentuk kombinasi
antara Listbox dan Edit. Pengguna dapat mengisi data dalam kotak Edit
atau memilih sesuai dengan
daftar yang ada. Daftar pilihan terdapat pada properti ITEMS. Dan
pilihan yang dipilih oleh user dapat
diakses melalui properti TEXT atau ITEMINDEX.
Contoh
aplikasi untuk menentukan jurusan dan harga menggunakan ComboBox
Kemudian tombol Cari Harga diisi dengan script berikut :
procedure TForm1.Tbl_Cari_HargaClick(Sender:
TObject);
begin
if CB_Jurusan.Text='Jakarta' then
E_Harga.Text:='10000'
else
if CB_Jurusan.Text='Yogyakarta' then
E_Harga.Text:='20000'
else
if CB_Jurusan.Text='Surabaya' then
E_Harga.Text:='30000'
else
E_Harga.Text:='0';
end;
Jika dieksekusi akan menghasilkan tampilan seperti di bawah ini :
ADS HERE !!!
