如何在“市场”下面增加节点?

jnzcs 2003-10-18 09:02:40
如果我想在“市场”下面增加新的节点应当如何来写呢。

begin
Treeview1.Items.AddFirst( nil, '总部');
treenode:= Treeview1.Items.GetFirstNode ;
Treeview1.Items.AddChild(treenode,'开发部'); //新增二级目录
Treeview1.Items.AddChild(treenode,'市场');
treenode:=treenode.GetNext ; //新增三级目录
treeview1.items.addchild(treenode,'开发一部');
Treeview1.Items.AddChild(treenode,'开发二部')

end;
...全文
45 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
huojiehai 2003-10-18
  • 打赏
  • 举报
回复
var
Node: TTreeNode;
begin
...
node := Treeview1.Items.AddChild(treenode,'市场');;
Treeview1.Items.AddChild(node,'市场1');
Treeview1.Items.AddChild(node,'市场2');

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧