Cara mewarnai Form pada program Delphi7

Asalamu’alaikum Wr.Wb.

Cara mewarnai Form pada program Delphi7. Langka-langkah nya sangat mudah. Dalam perancangan form nya meliputi:1label, 5RadioButton 1 button,1 GroupBox.                                                       Keterangan pembuatan form:                                                             Label1:Cara mewarnai form, RadioButton1:Red, RadioButton2:Blue,   RadioButton3:Green, RadioButton4:Olive, RadioButton5:yellow.

 

Setelah selesai pembuatan formnya kita harus memasukan code programnya.cara yang pertama:

Klik 2 kali RadioButton 1/Red

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

form1.Color:= clred;

end;

Klik 2 kali RadioButton 2/Blue

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

form1.Color:= clBlue;

end;

Klik 2 kali RadioButton 3/Green

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

form1.Color:= clGreen;

end;

  

Klik 2 kali RadioButton 4/Olive

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

form1.Color:= clOLIVE;

end;

Klik 2 kali RadioButton 5/Yellow

procedure TForm1.RadioButton5Click(Sender: TObject);

begin

form1.Color:= clyellow;

end;

Klik 2 kali Button1/keluar

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

end.

Inilah hasil tampilan ketika program di running:

Posted by Unknown

Tweet