treeview中如何给当前选中的节点增加一个子结点?
解决方案 »
- 系统自带函数的过程在哪里?
- 我使用ASA数据库(PB开发常用),但是在DELPHI中使用SQL语句,有下面的问题,请大家指教。
- DELPHI中怎样定义一个全局对象?
- 这段程序好像是到时响铃的能解释一下吗
- 我的Delphi6怎不能存档?
- 〈〈〈调查〉〉〉,兄弟们每月工资是多少K?从事什么项目开发?
- 调用.exe文件,却把其所在位置的其它所有文件删除了
- 采集卡问题
- 现有三个窗体,第一和第二个窗体上都有一个button,点击后显示第三个窗体,在第三个窗体显示的时候,我怎么知道是点击第一个窗体上的按钮还是点击第二个窗体上的按钮显示的呢?
- 如何退出双重循环
- 高手请入,有关线程的问题
- 删除数据为什么错?代码错在何处?
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;treeview的selected属性可以获得当前选种的接点