Event umleiten / alte Funktion aufrufen

[Gruber_Hans_12345]

Ich möchte gerne in meinem Programm ein Event uleiten, und dann bei Bedarf das alte Event wieder aufrufen.

Delphi-Quellcode:

procedure TItemHook.OnEvent(Sender : TObject);
begin
    .......
    if assigned(fOldProcedure) then begin
        fOldProcedure(Sender);
    end;
end;

Mein Problem ist nun, das ja vom TMethod der Data wert nicht mehr stimmt.

in meiner Init Funktion kann ich mir diesen zwar rausholen, aber weiß nicht wie ich diese dann ausführen kann

Delphi-Quellcode:

        fOldMethod.Code     := TMethod(TCustomAction(fControl).OnExecute).Code;
        fOldMethod.Data     := TMethod(TCustomAction(fControl).OnExecute).Data;
        fOldProcedure       := TCustomAction(fControl).OnExecute;
        TCustomAction(fControl).OnExecute    := OnEvent;

Kann mir da jemand weiterhelfen ?

[Gruber_Hans_12345]

hmmm, irgendwie funktionierts jetzt doch.