看过一个帖子,http://bbs.justep.com/forum.php?mod=viewthread&tid=11553
修改代码如下:
for I := trvSource.Items.Count - 1 downto 0 do // 修改这行代码
begin
lNode := TTreeNode(trvSource.Items[I]);
trvSource.Items.Expand(false); // 增加这行代码
if (lNode.Level = 1) then
lNodes.Add(lNode);
end;
for I := 0 to lNodes.Count - 1 do
begin
lNode := TTreeNode(lNodes[I]);
if not lNode.Expanded then
lNode.Expand(False);
end;