Aviator, ich glaube ich bleibe lieber bei meiner standard-Variante. Ich bekomme deine Version nicht zum Laufen.
Im VSTGetText steht einzig und allein
Delphi-Quellcode:
var
Data: PTreeData;
begin
Data := VST.GetNodeData(Node);
case Column of
0: ShowMessage(Data^.sFileName);
end;
Das führt zu einer Zugriffsverletzung.
Auf die ObjectList kann ich auch nicht zugreifen, da er dann meckert dass Integer und TreeData nicht zusammenpassen.
Mit meiner Standard-Methode müsste aber doch eigentlich auch der Speicher freigegeben werden. NodeFree wird doch aufgerufe, ich verstehe das nicht.