Einzelnen Beitrag anzeigen

Benutzerbild von Alexander Roth
Alexander Roth

Registriert seit: 17. Mai 2004
Ort: Kenn
574 Beiträge
 
Turbo Delphi für Win32
 
#1

Ereignis OnChangeState in TCheckbox einfügen

  Alt 26. Jun 2007, 18:15
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
Alexander Roth
Ich bin umgestiegen auf: Lazarus und Ubuntu! Alles OpenSource!

Besuch doch mal: www.roth.us.ms
  Mit Zitat antworten Zitat