Tree und seine Eigenschaften

[kaiser1401]

Versuch es mal damit:

Delphi-Quellcode:

Procedure Button1.Click(Sender: TObject); 
var node: TTreeNode; 
Begin 
node:=TreeView1.Items.GetFirstNode; 
  while node <> nil do 
   begin 
    if node.level = 1 then
     Showmessage(node.Text); 
    node := node.GetNext 
  end; 
End;