Obyek pilihan pada Delphi

Memilih dengan menggunakan GroupBox dan RadioButton

Programnya :

procedure TForm1.RadioButton1Click(Sender: TObject);

var a,b:integer;

d:real;

e:string;

begin

val(edit1.text,a,b);

d:=pi*a*a;

str(d:5:2,e);

edit2.Text:=e;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

var a,b:integer;

d:real;

e:string;

begin

val(edit1.text,a,b);

d:=pi*a*2;

str(d:5:2,e);

edit2.Text:=e;

end;

Memilih dengan menggunakan RadioGroup

Programnya :

procedure TForm1.raClick(Sender: TObject);

var a,b:integer;

d:real;

e:string;

begin

val(edit1.text,a,b);

if ra.ItemIndex = 0 then

d:=pi*a*a

else

d:=2*pi*a;

str(d:5:2,e);

edit2.Text:=e;

end;

Memilih dengan menggunakan GroupBox dan RadioButton dengan program pada Button

Programnya :

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

d:real;

e:string;

begin

val(edit1.text,a,b);

if radiobutton1.checked then d:=pi*a*a;

if radiobutton2.checked then d:=2*pi*a;

str(d:5:2,e);

edit2.Text:=e;

end;

Memilih dengan menggunakan RadioGroup dengan program pada Button

Programnya :

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

d:real;

e:string;

begin

val(edit1.text,a,b);

if radiogroup1.ItemIndex=0 then d:=pi*a*a;

if radiogroup1.itemindex=1 then d:=2*pi*a;

str(d:5:2,e);

edit2.Text:=e;

end;

Obyek CheckBox

Programnya :

procedure TForm1.Button2Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked then

edit1.visible:=true

else

edit1.visible:=false;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if checkbox2.Checked then

edit2.visible:=true

else

edit2.visible:=false;

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

if checkbox3.Checked then

edit3.visible:=true

else

edit3.visible:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,z:integer;

    y,u,w:string;

    x,v:real;

begin

val(edit1.Text,a,z);

val(edit2.Text,b,z);

val(edit3.Text,c,z);

z:=3000*a+2000*b+2500*c;

str(z,y);

edit4.Text:=y;

if radiogroup1.itemindex=0 then

x:=0.1*z

else

x:=0.02*z;

str(x:3:2,u);

edit5.Text:=u;

v:=z-x;

str(v:3:2,w);

edit6.Text:=w;

end;