Zwei Events auf einer Component

[Pravljica]

Danke taaktaak, _frank_

Ich habe das gefunden und werde es ausprobieren:

Delphi-Quellcode:

OrigEventHandler := nil;
if Assigned(Comp.Event) then
  OrigEventHandler := Comp.Event;

Comp.Event := MyEventHandler;

...

procedure TForm1.MyEventHandler(<event params>);
begin
  // My code here.


  if Assigned(OrigEventHandler) then
    OrigEventHandler(<event params>);
end;