Eigene Kkomponente mit OnEreignis

[Jens Schumann]

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.