Komponente erstellen || Ereignis überschreiben/löschen

[Blup]

Zitat von Dragon27:

"ist in Basisklasse nicht vorhanden"

Die Meldung sagt aber eigentlich alles aus...
Du kannst nur überschreiben was es auch gibt und nicht im Abschnitt "private" steht.

Zitat von Dragon27:

"Falsche Parameter"

Schau dir die Deklaration in der orginalen Klasse an, wenn du eine Methode überschreiben willst, muss diese nicht nur genau den selben Namen, sondern auch die selben Paramter und Rückgabewerte haben.

Delphi-Quellcode:

type
   TOrginal = class(TObject)
   private
     {kann nicht überschrieben oder von Nachfahren aufgerufen werden}
     procedure Proc1(AParam: TParamTyp);
   protected
     {kann nicht überschrieben aber von Nachfahren aufgerufen werden}
     procedure Proc2;
     {kann überschrieben werden}
     procedure Proc3(AParam: TParamTyp); virtual;
   end;

   TNachfahre = class(TOrginal)
   private
     {hat nichts mit der Methode gleichen Namens in der Basisklasse zu tun}
     procedure Proc1;
   protected
     {hat nichts mit der Methode gleichen Namens in der Basisklasse zu tun,
      verdeckt aber die Methode der Basisklasse}
     procedure Proc2(AParam: TParamTyp); reintroduce;
     {überscheibt ordentlich die orginale Methode}
     procedure Proc3(AParam: TParamTyp); override;
   end;

implementation

procedure TNachfahre.Proc1;
begin
  {tut irgendwas anderes als TOrginal.Proc1}
end;

procedure TNachfahre.Proc1(AParam: TParamTyp);
begin
  {optional Aufruf der Methode gleichen Namens in der Vorgängerklasse}
  inherited Proc1;
  {tut irgendwas mit dem Parameter}
end;

procedure TNachfahre.Proc3(AParam: TParamTyp);
begin
  {optional Aufruf der Methode der Vorgängerklasse mit selben Parametern}
  inherited;
  {tut irgendwas zusätzlich}
end;