delphitreeview添加节点计算机二级考试

文章作者 100test 发表时间 2009:07:25 10:08:04
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　计算机等级考试四级应用题解析汇总

　　2009年下半年全国计算机二级考试报名时间从6月1日起已经开始报名。详情点击：2009年下半年全国计算机等级考试各地报名点汇总。2009年下半年全国计算机二级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库。

　　procedure TForm1.Button1Click(Sender: TObject).
　　var
　　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.

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　全国计算机等级考试历年真题及答案

　　2009年上半年全国计算机等级考试试题及答案