Delphi-Quellcode:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Label1.Font.Color := clRed
else
Label1.Font.Color := clBlack;
end;
Lass woas hier am besten sofort sein!
If CheckBox1.IsChecked = true then
Und bevor du das falsch verstehst: CheckBox1Click ist das OnClick-Event von CheckBox1.