Hallo,
ich empfehle die Eventverarbeitung innerhalb einer Komponente wie zu realisieren.
Delphi-Quellcode:
type
TOnEreignis = procedure (Sender : TObject; var Position : integer; var Kind : TStatusKind) of object ;
TKlasse = class (TComponent)
...
private
FOnEreignis : TOnEreignis ;
protected
procedure DoEreignis(var Position : Integer; var Kind : TStatusKind); virtual;
published
property OnEreignis : TOnEreignis read FOnEreignis write FOnEreignis ;
end ;
procedure TKlasse.DoEreignis(var Position : Integer; var Kind : TStatusKind);
begin
// Falls FOnEreignis kein Eventhandler zugewiesen wurde, sollte man (wen nötig)
// Position und Kind mit Defaultwerten belegen. Das könnte evt hier passieren.
If Assigned(FOnEreignis) then
FOnEreignis(Self,Position,Kind);
end;
in der Methode, die dann das Event OnEreignis auslösen soll, ruft man
dann DoEreignis auf. Dadurch, dass das Event innerhalb der Methode DoEreignis ausgelöst wird,
kann man in Nachfahren der TKlasse sehr einfach das OnEreignis Event überschreiben!!!
Siehe hierzu auch die Methode Click in der
VCL. Wenn man das OnClick Event erweitern will
redefiniert man ja auch nicht OnClick, sondern überschreibt die Click Methode.