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