Pemrograman Dasar TKJ B

Buat form dan ubah captionnya menjadi Program TKJ B

Masukkan listing objek sebagai berikut :

Label1 ganti caption menjadi 'Masukkan Teks'

Edit1

GroupBox1

Checkbox1, Checkbox2, Checkbox3, 

Button1.

Scrip

if checkbox1.Checked=true then

  begin

    edit1.Font.Style:=edit1.Font.Style+[fsbold];

end

else

   begin

    edit1.Font.Style:=edit1.Font.Style-[fsbold];

end;