Minggu, 03 Mei 2015

DELPHI [ TUTORIAL II ] Radio Button


  1. Radio button adalah sebuah objek multiple choice ( hanya dapat memilih 1 pilihan diantara banyak pilihan yang terdaftar )(memasukan codingannya pada tiap tiap radio button dengan codingan yg serupa )



Codingan :


procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  if radiobutton1.Checked = true then
  begin
     edit1.text :='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
     edit1.text :='8000';
  end
  else
  begin
     edit1.text :='10000';
  end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radiobutton1.Checked = true then
  begin
     edit1.text :='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
     edit1.text :='8000';
  end
  else
  begin
     edit1.text :='10000';
  end;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if radiobutton1.Checked = true then
  begin
     edit1.text :='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
     edit1.text :='8000';
  end
  else
  begin
     edit1.text :='10000';
  end;
end;


Create by : heeyriku

0 komentar:

Posting Komentar