有关TTreeView的八个问题？（15*8）

本人第一次用TREEVIEW，又找不到相关资料，
如果谁有这方面资料，请EMAIL给我，等同于答题！多谢

在本站搜索一下"TreeView"，就有好多贴子了，看看吧。很好的。

是呀！！Delphi的帮助＋Csdn的帖子～～差不多了阿！！

我对TreeView从来没有用过阿！

对treeview1太小意思了，就是我不想写了，有oicq就交流吧，还在么？
不在就算了。

1
var nod1:ttreenode;   nod1:=TVKind.Items.GetFirstNode;
   nod1.Selected :=true;2

0: TreeView1.Items[0].Text
   TreeView1.Items[0].Selected:=True;
   TreeView1.Items[0].EditText;
1: Node.Level //节点的级别, Node是你选择的节点
   Node.Parent.Selected:=True; //回到上一级
2: 先得到该节点的父节点Node.Parent，然后把父节点的所有节点改变
3: 做一个for循环，添加节点
4: 叶子节点是什么？
5: TreeView1.SaveToFile
6: 数据库中保存节点、父节点信息即可
7: 添加两次，Node1.AddChild, Node2.AddChild
8: 节点ID    父节点ID
   1         0
   2         1
  ...        ...
  节点ID不能重复
  先添加父节点为0的节点（Root）,OnExpanded事件中查询子节点并添加子节点

Delphi的帮助不是有一大堆吗？

慢慢回答：
0。TreeView.items[0].selected := True;
1. TreeLevel := TreeView.selected.level;
treeview.selected.parent.selected := True;

答：有关TTreeView的八个问题？（15*8）-------我没办法回了。看这办吧，不对之处，请指正。
作　　者：guipei
所属论坛：Delphi
问题点数：0
回复次数：1
发表时间：2001-10-15 1:11:54


  --ROOT
¦----LEVEL1.1
¦--------LEVEL2.1
¦--------LEVEL2.2
¦--------LEVEL2.3
¦----LEVEL1.2
¦--------LEVEL2.1
¦--------LEVEL2.2
¦--------LEVEL2.3
¦......0.如何得到ROOT的值，并进入使ROOT获得焦点并进入编辑状态；
/////////procedure TForm1.Button1Click(Sender: TObject);
    var nod1:ttreenode;
begin
    treeview1.HideSelection :=false;      //这样才能看出效果。
    nod1:=treeview1.Items.GetFirstNode;    //得到第一个
    nod1.Selected :=true;                  //选中的一个
    nod1.EditText;                        //编辑end;
/////////////////
1.如何获得一个点的级别，并回到上一级；procedure TForm1.Button2Click(Sender: TObject);
    var nod1,nod2:ttreenode;
begin
    treeview1.HideSelection :=false;
    nod1:=treeview1.Selected;
    nod2:=nod1.Parent;
    nod2.Selected :=true;
end;///////////////
2.如何一个改变其它的同时改变，如第一个LEVEL2.1改为LEVEL2.5，则第二个同样；//////////////这个拟定一个变量，更新另外一个就行了。
//////////////3.如何复制一个子结构，如复制
¦----LEVEL1.2
¦--------LEVEL2.1
¦--------LEVEL2.2
¦--------LEVEL2.3
并添加在最后；
////////////////////
    var nod1,nod2,nod3:ttreenode;
begin    nod1:=treeview1.Selected;    // 为一个有子结构；    nod3:=treeview1.Items.Add(nil,'新的一个');    nod2:=nod1.getFirstChild;
    while nod2<>nil do
    begin
        treeview1.Items.AddChild(nod3,nod2.Text);
        nod2:=nod1.GetNext;    end;
end;///////////////////4.如何判断是否是叶子节点，并限制每个树枝的叶子节点只有一个；
///
nod1:=treeview1.Selected;
nod2:=nod1.getFirstChild;
if nod2:=nil then 是叶子节点
限制每个树枝的叶子节点只有一个
add 前，判断一下就可以了。///5.如何同其他信息同时保存到一个文件中，并读取；
////////////
procedure SaveToFile(const FileName: string);////////////6.如何同数据库连接，如：叶子节点是纪录的一个字段的值，如何从数据库中检索该纪录；////////
读区数据库，把值加进去就行了，这个我有例子。
要了就联系。////////
7.如何同时添加，同时删除
如
¦----LEVEL1.1
¦--------LEVEL2.1
¦--------LEVEL2.2
¦--------LEVEL2.3
¦--------LEVEL2.4  //添加
¦----LEVEL1.2
¦--------LEVEL2.1
¦--------LEVEL2.2
¦--------LEVEL2.3
¦--------LEVEL2.4  //同时添加；
///////
同例2
/////////8.如果将这个结构存入一个表，该表如何设计最简洁，存储和读取如何进行.
///这是数据库的构造问题，和这个没有直接关系。

回复贴子：
回复人：　guipei(imbasic)　(2001-10-15 1:17:06)  得0分
.如何复制一个子结构，如复制
¦----LEVEL1.2
¦--------LEVEL2.1
¦--------LEVEL2.2
¦--------LEVEL2.3
并添加在最后；
procedure TForm1.Button3Click(Sender: TObject);
    var nod1,nod2,nod3:ttreenode;
begin    nod1:=treeview1.Selected;    // 为一个有子结构；    nod3:=treeview1.Items.Add(nil,'新的一个');    nod2:=nod1.getFirstChild;
    while nod2<>nil do
    begin
        treeview1.Items.AddChild(nod3,nod2.Text);
        nod2:=nod1.GetNext;
        if nod1.Parent <> nod2 then break; ////////加上这一句  ，可以完成一级复制。多级的话递归就行了。
    end;
end;
左日晚给你单发了一个贴子，可惜你没有看到。。

你不会让我白费尽吧
http://www.csdn.net/expert/topic/322/322996.shtm

调试易

有关TTreeView的八个问题？（15*8）

解决方案 »