ok das wäre natürlich sehr gut!
hab es jetzt mal so probiert:
Delphi-Quellcode:
procedure TForm1.VST1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
Archiv: TArchiv;
begin
if assigned(node) then
begin
Archiv := TArchiv(Sender.getnodedata(node)^);
Archiv.free;
end;
end;
Beiden VSTs ist dieses Ereignis zugeteilt.
Funktioniert jedoch nicht, kommt immernoch der selbe Fehler.
Wenn ich den gesamten code ausklammere, dann funktionierts!
Warum das?