Trik Dasar Pada Form Delphi 7

Merubah Warna Background pada Form Delphi 7

Perhatikan gambar di bawah ini 

Buatlah Form awal pada Design form Delphi 7 seperti pada form di atas yang  berwarna Putih,lalu setelah semua nya kalian buat,untuk merubah warna background form,masukan Soure di bawah ini pada setiap Radiiobutton yang telah di masukan ke dalam form tersebut.

Untuk warna hijau klick 2x pada radiobutton nya,lalu masukan Source code di bawah ini di antara (Begin dan end; ) tepat nya seperti ini.

procedure TForm1.RadioButton9Click(Sender: TObject);
begin
form1.Color := clgreen;
end;

procedure TForm1.RadioButton10Click(Sender: TObject);
begin
form1.Color := clblue;
end;

procedure TForm1.RadioButton10Click(Sender: TObject);
begin
form1.Color := clclfuchsia;
end;

procedure TForm1.RadioButton10Click(Sender: TObject);
begin
form1.Color := clyellow;
end;

procedure TForm1.RadioButton8Click(Sender: TObject);
begin
form1.Color:= clred;
end;

Silahkan anda coba dulu Program nya di "Run",jika berhasil kita kembali ke form awal untuk memasukan Source Code untuk "Style Font"

Merubah Style Font pada form Delphi 7

Perhatikan gambar di bawah ini.

Sama hal nya seperti memasukan Source Code untuk merubah warna Background,silahkan anda klick 2x Radiobutton pada style font untuk memasukan Source code di bawah ini ke dalam nya.

procedure TForm1.boldClick(Sender: TObject);
begin
   if bold.Checked=true then
judul.Font.Style := judul.Font.Style+[fsBold]
else
judul.Font.Style := judul.Font.Style-[fsBold]
end;

procedure TForm1.ItalicClick(Sender: TObject);
begin
if italic.Checked=true then
judul.Font.Style := judul.Font.Style+[fsItalic]
else
judul.Font.Style := judul.Font.Style-[fsitalic]
end;

procedure TForm1.underlineClick(Sender: TObject);
begin
if underline.Checked=true then
judul.Font.Style := judul.Font.Style+[fsUnderline]
else
judul.Font.Style := judul.Font.Style-[fsUnderline]
end;

O iya Gan.. Pada Label yang di jadikan Judul di form,pada pengaturan Object Inspector  nama label nya di ganti menjadi "Judul" (tanpa tanda kutip).

Kemudian pada Button "Default" masukan source code di bawah ini ke dalam nya dengan klick 2x pada button tersebut.

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Color := clwhite;
judul.Font.Style := [];

//style
bold.Checked :=false;
italic.Checked := false;
underline.Checked := false;
end;

Ok guys.. demikian lah sedikit tutorial dasar mengenai form delphi 7,untuk pembuatan program nya nanti akan saya buatkan.. terima kasih atas kunjungan nya.. salam Blogger.