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;