Delphi – Merubah Font Style Check Box

• Pertama tama buatlan design form sebagai berikut :

• Aturlah Properties namenya seperti dibawah ini.

Nah untuk alur programnya sebagai berikut :

• Jika program berjalan kita bisa mengisi tampilan teks preview dalam edit box. Dimana jika edit box dirubah maka label preview akan berubah mengikuti edit teks.
• Jika check bold di klik / di checklist maka akan merubah label preview menjadi tampilan bold.
• Jika check italic di klik / di checklist maka akan merubah label preview menjadi tampilan italic.
• Jika check underline di klik / di checklist maka akan merubah label preview menjadi tampilan garis bawah.
• Jika program keluar diklik maka akan muncul konfirmasi peringatan keluar dari program.

Berikut ini adalah listing codenya :

1 2 3 4 5 6

procedure Tform_materi28.edit_teksChange(Sender: TObject); begin     label_preview.Caption:=edit_teks.Text;   end;

 kita gunakan procedure change agar pada saat teks diketikan maka label preview akan langsung berubah apa yang diketikkan.

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tform_materi28.check_boldClick(Sender: TObject); begin     if check_bold.Checked=true then     begin       label_preview.Font.Style:=label_preview.Font.Style+[fsbold];     end   else     begin       label_preview.Font.Style:=label_preview.Font.Style-[fsbold];     end;   end;

 Jika check bold di check list maka label preview akan merubah font style menjadi Bold.

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tform_materi28.check_italicClick(Sender: TObject); begin     if check_italic.Checked=true then     begin       label_preview.Font.Style:=label_preview.Font.Style+[fsitalic];     end   else     begin       label_preview.Font.Style:=label_preview.Font.Style-[fsitalic];     end;   end;

 Jika check italic di check list maka label preview akan merubah font style menjadi italic.

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tform_materi28.check_underlineClick(Sender: TObject); begin     if check_underline.Checked=true then     begin       label_preview.Font.Style:=label_preview.Font.Style+[fsunderline];     end   else     begin       label_preview.Font.Style:=label_preview.Font.Style-[fsunderline];     end;   end;

 Jika check underline di check list maka label preview akan merubah font style menjadi underline.

1 2 3 4 5 6 7 8 9 10 11

procedure Tform_materi28.button_bersihClick(Sender: TObject); begin     edit_teks.Text:='';   check_bold.Checked:=false;   check_italic.Checked:=false;   check_underline.Checked:=false;     edit_teks.SetFocus;   end;

jika button bersih di klik maka edit teks dibersihkan dan check box pada semua di kosongkan dan set focus pada edit teks untuk pemasukan teks berikutnya.

1 2 3 4 5 6 7 8 9

procedure Tform_materi28.button_keluarClick(Sender: TObject); begin     if(application.MessageBox('Yakin akan keluar dari program?','Konfirmasi',MB_YesNo)=ID_Yes)then     begin       close;     end;   end;

Jika button keluar diklik maka akan muncul konfirmasi box untuk menanyakan apakah yakin akan keluar dari program.

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

hasil check bold

hasil check bold, italic, dan underline

hasil program button bersih

hasil konfirmasi keluar

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Merubah Font Style dengan Check Box. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). klik disini