TCheckBox: Komisches Verhalten mit Ereignis OnClick

[DeddyH]

Vielleicht so?

Delphi-Quellcode:

procedure Form1.FormShow(sender: TObject);
begin
  CheckBox1.Checked := False;
  CheckBox2.Checked := False;
  if not CheckBox3.Checked then
    CheckBox3.Checked := True
  else
    CheckBox3Click(CheckBox3);
end;