Contoh penggunaan Edit dan RadioButton pada Borland Delphi 7

Dari pada kosong blog ane, nulis curet2tan hahahaha….

Nie langsung aja pertama buka form baru trus cari komponeng :

• edit
• label (3 buah)
• RadioButton (2 buah)
• Button (2 buah)

Perti ini gambarannya :

Trus masukin code pada form nya :

procedure TForm1.FormCreate(Sender: TObject);

begin

label1.Caption := 'Masukan Nama';

Edit1.Text := '';

Label2.Caption := 'Jenis Kelamin'  ;

RadioButton1.Caption := 'Laki-laki';

RadioButton2.Caption := 'Perempuan';

Label3.Caption := '';

Button1.Caption := 'Proses';

Button2.Caption := 'Close';

Form1.Caption := 'Entri Data With Radio Button';

label1.Font.Color := clred ;

RadioButton1.Font.Color := clWhite ;

RadioButton2.Font.Color := clWhite ;

label3.Font.Color := clred ;

Trus masukin code pada salah satu button1 nya :

procedure TForm1.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then

Label3.Caption := '< '+ Edit1.Text + ' tampan sekali hari ini' + ' >'

else

if RadioButton2.Checked then

Label3.Caption := '< '+edit1.text + ' cantik sekali hari ini' +' >'

else

ShowMessage('Sory !!!!!    belum ada pilihan')

end;

Trus masukin code pada salah satu button2 nya :

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

ok... dah kan... karang tinggal di run (f9) aja ato dijalanin....

kira2... hasilnya kayak gini .... :

Trus masukin nama dan pilih jendernya, eng ing eng hasilnya....