遍歷 TreeView

bestlong

1. function TForm1.AllOverTreeView(node:TTreenode):TTreenode;
   
2. begin
   
3.   while node<>nil do
   
4.   begin
   
5.     if node.HasChildren then
   
6.     begin
   
7.       node:=node.getFirstChild;
   
8.       allovertreeview(node);
   
9.       node:=node.Parent;
   
10.     end;
    
11. 
    
12.     if node.getNextSibling<>nil then
    
13.         node:=node.getNextSibling
    
14.     else
    
15.       exit;
    
16.   end;
    
17. end;
    
18. 
    
19. procedure TForm1.Button1Click(Sender: TObject);
    
20. var
    
21. parentnode:TTreenode;
    
22. begin
    
23. parentnode:=Mytreeview.Items.GetFirstNode;
    
24. AllOverTreeView(parentnode);
    
25. end;

複製代碼