我做了点击一个节点A,就动态去数据库中找对应的值,取出来赋给A的子节点,点击节点B,同样添加B1,B2为B的子节点.. 但出现问题就是,前面的'+'号一开始是不见的,要点击了才出现...怎么能让有子节点的node前面都显示'+'号!?? 急..谢谢!
解决方案 »
- 请问各位大哥,在执行时小弟如何移动Panel1控件,只有上下移动。不要左右移动。
- quickreport的打印分页问题!急啊!马上要交工了啊!
- 使用CDMA手机模块WaveCom公司的Q2358c模块,使用Spcomm连接PC串口,收发短信的问题,大侠请进
- BDE取数据受限,帮定有分
- 数据库还原(增量备份后的还原)有关。
- 谁知道工具栏菜单栏上的小图片才什么网站上能下载????
- 如何实时捕获Windows当前刷新了屏幕上的哪块矩形区域?
- ●●●●●●●●●●●●●这个算是倒分吗?●●●●●●●●●●●●●
- 取数据,急!!!在线等
- 怎样连接带密码的ACCESS数据库!(在线等待)
- VclZip的使用?请大家帮忙,谢谢!
- 求教各位:很多TLabel控件,如何根据其name属性,快速定位该控件。在线等待
然后在点击事件里先清空子节点然后再从数据库里取出你要的再添加上去就行了。
TreeView1.Items.Clear
...
//添加你要的节点
TreeView1.Items.Add(...)
procedure TForm1.FormCreate(Sender: TObject);
begin
{初始时就赋一个进去,不然它不出+号}
tv.Items.AddChild(tv.Items.AddFirst(nil, '根节点'), '正在加载...')
end;procedure TForm1.tvExpanded(Sender: TObject; Node: TTreeNode);
var
i: Integer;
begin
for i := 0 to Node.Count - 1 do
Node.Item[i].Delete; {用Node.DeleteChildren则不行}
tv.Items.AddChild(Node, '替代节点'); {这里写入你的添加代码}
end;
A
A01
A0101
A0201
A02
A03
B
B01
B02
C
D ...
怎么在每个节点前都加如'+'啊??
你只要在最末级加就可以了,非末级都有'+',用Node.HasChildren来判断