主题：treeview节点问题
caols
[专家分：0] 发布于 2006-09-18 16:43:00
我用treeview控件,有三层,如何在窗口show时,父节点(部门)自动展开,而子节点(人员)不展开? 用了treeview.fullexpand全部展开了.
非常感谢1
回复列表 （共4个回复）
沙发
jakyben [专家分：80] 发布于 2006-09-19 08:18:00
设置 treeview autoexpand:=true 默认会自动展开第一节点
板凳
caols [专家分：0] 发布于 2006-09-19 08:44:00
可是我在object inspect里将treeview的autoexpend的属性设为true,第一节点还没有展开,请问是不是还有其他的设置?
3 楼
ILikePromgram [专家分：190] 发布于 2006-09-21 23:35:00
你的意思是不是所有第一层的展开,其它层不展开??
是的话,去掉AutoExpend设置为False;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to TreeView1.Items.Count - 1 do //所有结点
if TreeView1.Items.Item[i].Parent = nil then //如果是第一层
TreeView1.Items.Item[i].Expanded := True; //此结点展开
end;
看看行不行,不过此方法在结点多时好像就不怎么好了.
4 楼
jakyben [专家分：80] 发布于 2006-09-22 20:28:00
如果节点是动态产生的话 我前面的方法是不行
但是如果是动态产生的 可以参照楼上的 按照自己的需求进行相应的修改
我来回复
您所在位置：