Percabangan dapat digunakan sebagai control berbagai macam komponen dalam Delphi, misalnya pada combobox, radiobutton, dan checkbox.
ComboBox digunakan untuk memilih SATU data dari banyak item yang bersifat teks, yang mana itemnya lebih mudah untuk ditambahkan nantinya tanpa harus membongkar projek, item bisa diisi melalui properties ataupun bersumber dari database. Kontrolnya bisa berupa itemindex atau text langsung. Contoh pada pemilihan pendidikan terakhir, ‘SD Sederajat’, ‘SMP Sederajat’ , ‘SMA Sederajat’, ‘D1’, ‘D2’, ‘D3’, ‘S1’, ‘S2’, dan ‘S3’.
CheckBox digunakan untuk memilih BANYAK data dari item, yang mana mencentang salah satu item tidak akan menghapus centang di item lainnya asalkan berada dalam satu GroupBox, kecuali untuk kasus tertentu. Kontrol yang digunakan adalah checkbox1.checked:=[Boolean True/False]. Contohnya pada data Kelengkapan Berkas, misalnya ada 3 checkbox yang isinya adalah ‘Ijazah’, ‘SKCK’, ’Transkrip Nilai’.
RadioButton sama seperti combobox yang digunakan untuk memilih SATU data dari banyak item, begitu salah satu item dipilih maka item lain tidak terpilih, hanya saja RadioButton biasanya digunakan untuk data yang lebih sedikit dan lebih susah untuk menambahkan itemnya tanpa membongkar projeknya dan diletakkan dalam satu RadioGroup. Kontrolnya berupa RadioGroup1.itemindex:=[Integer]. Contohnya pada pemilihan Jenis Kelamin, item RadioGroup adalah ‘Laki-laki’ dan ‘Perempuan’.
3.2 Praktek III
Buat form seperti diatas, combobox harus fixed, checkbox dalam groupbox, radiobutton dalam radiogroup.
Combobox1 -> Properties -> Style = CsOwnerDrawFixed
Combobox1 -> Properties -> Items = {isi itemnya}
GroupBox1 -> Letakkan CheckBox1, CheckBox2, dan CheckBox3
CheckBox1 -> Properties -> Caption = D
CheckBox2 -> Properties -> Caption = E
CheckBox3 -> Properties -> Caption = F
RadioGroup1 -> Properties -> Items = {isi itemnya}
DateTimePicker1 -> Properties -> Format = dd-MMM-yyy
Button1 -> Properties -> Caption = Proses
Button2 -> Properties -> Caption = Bersih
procedure TForm1.FormShow(Sender: TObject);
begin
memo1.Clear;
combobox1.ItemIndex:=-1;
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
radiogroup1.ItemIndex:=-1;
datetimepicker1.DateTime:=now;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
formshow(sender);
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b:string;
begin
a:='';
if checkbox1.Checked=true then
a:=a+checkbox1.Caption;
if checkbox2.Checked=true then
a:=a+checkbox2.Caption;
if checkbox3.Checked=true then
a:=a+checkbox3.Caption;
b:='';
if radiogroup1.Itemindex=-1 then
b:=''
else if radiogroup1.Itemindex=0 then
b:='G'
else if radiogroup1.itemindex=1 then
b:='H'
else
b:='I';
memo1.Lines.Add(formatdatetime('dd-MMM-yyy',datetimepicker1.datetime)+' - '+combobox1.Text+' '+a+' '+b);
end;
3.3 Tugas III
Buatlah sebuah VALIDASI, apabila yang akan tampil adalah huruf ‘B H’ atau ‘B F’ maka tampilkan pesan “SENSOR !!”
MessageDlg(‘SENSOR !!’,mtWarning,[mbOK],0);
Petunjuk:
Pada kedua kasus diatas, ketika ditekan tombol Proses maka akan tampil Dialog Warning