bestlong 怕失憶論壇

標題: 遍歷 TreeView [打印本頁]
作者: bestlong    時間: 2006-5-9 18:30     標題: 遍歷 TreeView

  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;

  12.     if node.getNextSibling<>nil then
  13.         node:=node.getNextSibling
  14.     else
  15.       exit;
  16.   end;
  17. end;

  19. procedure TForm1.Button1Click(Sender: TObject);
  20. var
  21. parentnode:TTreenode;
  22. begin
  23. parentnode:=Mytreeview.Items.GetFirstNode;
  24. AllOverTreeView(parentnode);
  25. end;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5