怎样使用tree view
解决方案 »
- 有风,有雪,有酒有肉,有火锅,有驴,还有梅花
- ASC("ZW,1111,期末余额") 有没有人用过excel这个函数
- 紧急求助!如何将数据库取出来的多个值赋给form中多个相对应按钮的Caption?
- delphi连接SQL数据库,编译出错,请问问题出在那里?
- 如何取得Access的字段名?
- TreeView節點上圖標的交換
- 如何在DELPHI中读取指定的Cookie文件中的内容
- 主从表报表显示时,为什么会出现ora-01410,无效的rowid错误?会是什么原因?
- 紧急求救:关于Access单表记录的条数限制!(在线等待)
- 那位大侠看看delphi 6的线程demo的一段代码,不明白,看不懂。
- 准备离开
- 模糊查询问题 急!!!
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { remove any existing nodes }
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
{ Add a child node to the node just added }
AddChild(MyTreeNode1,'ChildNode1'); {Add another root node}
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
{Give MyTreeNode2 to a child }
AddChild(MyTreeNode2,'ChildNode2'); {Change MyTreeNode2 to ChildNode2 }
{ and add a child node to it}
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,'ChildNode2a'); {Add another child to ChildNode2, after ChildNode2a }
Add(MyTreeNode2,'ChildNode2b'); {add another root node}
Add(MyTreeNode1, 'RootTreeNode3');
end;end;
不过还可以加 Addobject