Man baut sich einfach eine Dummy-Klasse mit der Funktion.
Delphi-Quellcode:
type
TTabManagerClass = class
private
public
procedure VST_Edit_OnGetText(Sender: TBaseVirtualTree; Node: PVirtualNode);
end;
implementation
procedure TTabManagerClass.VST_Edit_OnGetText(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
end;
.
.
.
Temp:=TTabManagerClass.Create;
OnGetText:=Temp.VST_Edit_OnGetText;
Ist nur ein Ansatz und ungetestet. Problem ist natürlich, das speicherleichen hinterlassen werden. Eventuell klappt es ohne Instanzen, wenn man Klassen-Funktionen nutzt, aber das weiß ich im Moment nicht.
Aber mir ist gerade aufgefallen, dass du auch direkt auf die Main_Form Instanz zugreifst. Würde dir da empfehlen, der Procedure das PageCOntrol zuübergeben, damit du unabhängig bist.