VST Node mit Child Nodes hinzufügen (InitChildren)

[Wishmaster]

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,