Die korrekte Methode (auch, wenn es komisch klingt) wäre Click. Die Methode Toggle wird nur aufgerufen, wenn man auf die Checkbox klickt und nicht, wenn man im Code z.B.
CheckBox1.Checked := False
schreibt (witzigerweise wird in diesem Fall aber die Click Methode aufgerufen).
Somit würde dein Code etwa wie folgt aussehen:
Delphi-Quellcode:
TMyCheckBox = class(TCheckBox)
protected
procedure Click; override;
end;
procedure TMyCheckBox.Click;
begin
inherited;
// dein Code
end;