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 ?