Ereignis OnChangeState in TCheckbox einfügen

[Alexander Roth]

Hallo Leute,

wie füge ich am elegantesten, bzw, am objektorientiertesten das Ereignis OnChangeState in TCheckbox ein?
Ich habe mir folgendes überlegt:

Delphi-Quellcode:

  TACheckbox=class(TCheckbox)
  private
    FOnChangeState: TNotifyEvent;
    procedure SetState(Value: TCheckBoxState);
  published
    property OnChangeState: TNotifyEvent read FOnChangeState write FOnChangeState;
  end;

Und

Delphi-Quellcode:

procedure TACheckbox.SetState(Value: TCheckBoxState);
begin
  OnChangeState(self);
  inherited SetState(Value);
end;

Doch das scheitert daran, dass ich die Methode SetState nicht überschreiben kann.
Was kann ich machen?

Gruß Alexander