DELPHI7 :: RadioGroup

Kali ini kita akan membuat Aplikasi yg bisa mengubah warna dan dlm aplikasi ini kita bisa menulis sebagai template yg menggunakan RadioGroup.
RadioGroup adalah komponen program borland delphi 7 yang digunakan untuk pemilihan opsi dari beberapa item yang tersedia. Berikut latihan untuk menggunakan RadioGroup.

Mengetahui letak RadioGroup
Komponen RadioGroup terletak pada tab standart, lihat gambar.

Komponen yang dibutuhkan dalam latihan
2 buah RadioGroup
1 buah Button ,dan
1 buah Label

Memberikan items pada RadioGroup
Klik RadioGroup1 > Pilih box Object Inspector -> Tab Properties -> Items -> Tambahkan items
dan klik ok.

Lakukan hal yang sama untuk RadioGroup ke dua, namun gunakan items warna seperti merah,
biru, dan hijau.
Kemudian ubah itemindex pada kedua RadioGroup dari -1 menjadi 0
Hasil dan tampilannya kurang lebih seperti

Coding pada button
Klik 2 kali button1 dan masukkan source code berikut :

  Label1.Caption:=RadioGroup1.Items[RadioGroup1.ItemIndex];
  if RadioGroup2.ItemIndex=0 then
  begin
    Label1.Font.Color:=  clRed;
  end
  else
  if RadioGroup2.ItemIndex=1 then
  begin
    Label1.Font.Color:=  clBlue;
  end
  else
  if RadioGroup2.ItemIndex=2 then
  begin
    Label1.Font.Color:=  clGreen;
  end;

Running program
Pilih tab run -> run atau bisa menekan shortcut F9, hasilnya seperti gambar berikut