Komponen RadioButton pada Delphi

Komponen RadioButton adalah sebuah komponen yang berfungsi untuk membuat daftar pilihan, yang mana hanya bisa dipilih salah satunya saja oleh si pengguna (user). Berikut gambar yang menunjukkan letak dari komponen RadioButton tersebut :

Seperti biasa, kalau cuma membaca saja, pastinya akan lebih sulit untuk dimengerti. Oleh karena itu, yuk praktek sambil dibaca 🙂

Disini kita akan praktek membuat sebuah program menggunakan radiobutton untuk merubah warna latar form. Tampilan form awalnya adalah sebagai berikut :

Lalu atur properties tiap komponen seperti berikut :

Komponen	Properties	Pengaturan
RadioButton1	Caption	Merah
RadioButton2	Caption	Kuning
RadioButton3	Caption	Hijau
RadioButton4	Caption	Biru
Button1	Caption	&Normal
Button2	Caption	&Keluar

Maka seperti inilah akhirnya :

Kita akan mulai dengan kode-kode programnya. Dobel klik pada “Merah” dan ketikkan kode berikut :

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
    Form1.Color := clRed;
end;

Lanjut ke tombol “Kuning” :

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
    Form1.Color := clYellow;
end;

Lalu ke tombol “Hijau” :

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
    Form1.Color := clGreen;
end;

Kemudian tombol “Biru” :

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
    Form1.Color := clBlue;
end;

Kemudian tombol “Normal” :

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.Color := clMenuBar;
    Radiobutton1.Checked := False;
    Radiobutton2.Checked := False;
    Radiobutton3.Checked := False;
    Radiobutton4.Checked := False;
end;

Dan terakhir tombol “Keluar” :

procedure TForm1.Button2Click(Sender: TObject);
begin
    Application.Terminate;
end;

Yups, coba jalankan programnya dengan menekan tombol F9. Kalau tidak ada error, silahkan save ya pekerjaannya 🙂

Kalau ada pertanyaan, silahkan ditanyakan ya!