Tags: /超级猛料/VCL/TreeView/
Date Created: Wed Aug 15 2001 04:00:37 GMT+0000 (Coordinated Universal Time)
var
lnNode: TTreeNode; begin lnNode := TreeView1.Items.GetFirstNode; while not (lnNode = nil) do begin lnNode.Expand(False); lnNode := lnNode.GetNextSibling; end; end;