===== CheckBox =====
Erstelle ein Programm, das bei einem Label den Schriftstil ändert.
{{:informatik:k6inf:visual_c_:grundkomponenten:schrift_aendern.png|}}
void __fastcall TForm1::CheckBoxClick(TObject *Sender)
{
if (CheckBox1->Checked)
Label1->Font->Style = Label1->Font->Style << fsBold;
else
Label1->Font->Style = Label1->Font->Style >> fsBold;
if (CheckBox2->Checked)
Label1->Font->Style = Label1->Font->Style << fsItalic;
else
Label1->Font->Style = Label1->Font->Style >> fsItalic;
if (CheckBox3->Checked)
Label1->Font->Style = Label1->Font->Style << fsUnderline;
else
Label1->Font->Style = Label1->Font->Style >> fsUnderline;
}