TCheckbox-Ereignes: Anhaken

[sakura]

Im OnClick Event kannst Du das abfangen

Delphi-Quellcode:

procedure TForm1.CheckBox1OnClick(Sender: TObject);
begin
  if Sender is TCheckBox then
    if TCheckBox(Sender).Checked then
    begin
      // checked
    end else begin
      // not checked
    end;
end;