Treeview自动展开显示所有节点

字体大小: 中小 标准 ->行高大小: 标准 中 大 
var

lnNode: TTreeNode;

begin

lnNode := TreeView1.Items.GetFirstNode;

while not (lnNode = nil) do begin

lnNode.Expand(False);

lnNode := lnNode.GetNextSibling;

end;

end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68049.html