"inherited" für umgeleitetes Event

[Muetze1]

Merke dir einfach nur einen Original vorhandenen Eventhandler, welcher im OnClick stand, bevor du deinen zuweist. In deinem kannst du dann den Originalhandler aufrufen.

Delphi-Quellcode:

Type
  TFormClass = Class(TForm)
  ...
  Private
    lOldEventHandler: TNotifyEvent;
  ...
  End;

...

Procedure TFormClass.FormCreate(Sender: TObject)
Begin
  lOldEventHandler := Button1.OnClick;
  Button1.OnClick := MyNewHandler;
End;

Procedure TFormClass.MyNewHandler(Sender: TObject)
Begin
  // my code

  // call old handler (if found)
  If Assigned(lOldEventHandler) Then
    lOldEventHandler(Sender);
End;