versuche es mal mit, ich hoffe es hilft.
Delphi-Quellcode:
(* Init Tree DataSize *)
procedure TForm.FormCreate(Sender: TObject);
begin
VST.NodeDataSize:= SizeOf(TData); // Ich initialisere Nodes so ;-)
erster eintrag/node
Delphi-Quellcode:
Node:= VST.AddChild(Nil);
Data:= VST.GetNodeData(Node);
Data^.Text:= 'Test'
subnode
Delphi-Quellcode:
Node:= VST.FocusedNode;
if Assigned(Node) then
begin
Node:= VST.AddChild(Node);
Data:= VST.GetNodeData(Node);
Data^.Text:= 'Test'
Data^.Caption:= 'Test'
end;
schaue dir auch mal an die folgenden, besonders wenn du daten in einem loop verarbeiten willst.
GetFirst, GetLast, NextSibling,
FirstChild, LastChild
GetFirstLevel,