Ok jetzt bin ich total raus, da ich definitiv nichts mehr verstehe. Genau deswegen hasse ich dieses Control, da die Handhabung völlig unnütz kompliziert ist.
Mein Ziel war es eigentlich Nodes erstellen zu können (ich mache das mit einer TObjectList), die im VST anzeigen zu lassen und dann abspeichern zu können, indem ich durch jedes Node gehe.
Ich glaube ich gebe mich geschlagen. Denn wozu etwas verwenden, wenn ich kein Wort davon verstehe.
So mache ich es übrigens
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
aVSTData: TVSTData;
i: Integer;
begin
aVSTDataClasses := TVSTDataClasses.Create;
for i := 0 to 1 do
begin
aVSTData := TVSTData.Create;
aVSTData.sTitle := 'Title ' + IntToStr(i);
aVSTData.sInformation := IntToStr(i) + ' #2';
aVSTData.sInformation2 := IntToStr(i) + ' #3';
aVSTDataClasses.Add(aVSTData);
end;
VirtualStringTree1.RootNodeCount := aVSTDataClasses.Count;
end;