听说用treeview就可以,我下栽了,不知道怎么用,第一步是不知道怎样嵌入delphi
请帮忙
请帮忙
解决方案 »
- 模仿QQ的小键盘控件以及圆形密码
- 弱弱的问一下
- 在DBGRID中的同一CELL中事件ONCELLCLICK不更新PICKLIST问题
- 如何得到一个包含框架的网页里面的所有标签文本?
- [算法习题] 1.人、狗、鸡、米过河的问题
- 菜鸟问题:@ 这个符号的用法是什么啊?急!在线等
- 散分了。
- isapi的问题
- 怎么用clientdataset与ADOTable或ADOQrery移动到表中的一个记录,然后进行del与edit,怎样把这条记录中的其中一个字段取出来然后赋给一个
- 一个初学者的心声呀!高手近来坐坐吧。大散分!
- 斑竹:精华版的“交流学习: 网络函数大公开”怎么打不开
- 如何编写一个程序,让本地硬盘的某个目录执行完全共享???
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;