简单的treeview问题. ( 积分: 100 )

请问如何自动展开treeview的某节点?

请问如何自动展开treeview的某节点?

某节点的Expanded属性为true即可

Tree.Selected.Expand(true);
Tree.AutoExpand := true;

Tree.Selected.Expand(true);
即可

ColdBlood (2004-06-04 15:31:53)
还是帮你写了一个通用函数：

//参数说明：ANodeText：需要展开节点的Text
// ALevel：需要展开节点层次（如果要展开的节点是第1层，则传入0）
// AExpanded：是否展开
//附加说明：同时加了ANodeText和ALevel是为了防止不同级节点出现同名现像。
//调用方法：
TreeView1.FullCollapse;//先全部收缩
ExpandedNode('a', 0, True);

procedure TForm1.ExpandedNode(const ANodeText: string;
const ALevel: Integer; const AExpanded: Boolean);
var
I: Integer;
begin
for I := 0 to TreeView1.Items.Count - 1 do
begin
if (TreeView1.Items.Item.Text = ANodeText)
and(TreeView1.Items.Item.Level = ALevel) then
begin
TreeView1.Items.Item.Expanded := AExpanded;
Break;
end;
end;
end;