高分求教，关于treeview的问题 ！！！

Question

帮助里有很详细的说明和例子啊。我这里没有装Delphi所以没法帮你查。

Answer 1

TTreeNode是树的节点，你要的属性它都有啊

Answer 2

节点TreeNode（序号items[i]）:
01([0])
  0101([1])
  0102([2])
02([3])
  0201([4])
  0202([5])

Answer 3

Edit1.Text := IntToStr(TreeView1.Selected.Level + 1);//层
Edit2.Text := IntToStr(TreeView1.Selected.Index + 1);//节点

Answer 4

多谢楼上的各位，若我想通过另一个form来增加编码和名称，写入数据库后部刷新前一个form，怎样直接在treeview中显示呀？拜托各位了

Answer 5

//==============================================================================
//数据集解构成树****************************************************************
//==============================================================================
procedure DataSetToTreeView(DataSet: TDataSet; var TreeView: TTreeView; NodeRoot: string);
var Nodes: array of TTreeNode;
    Strs: array of string;
    i: integer;
begin
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  with DataSet do
  begin
    Close;
    Open;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    SetLength(Nodes, FieldCount+1);
    SetLength(Strs, FieldCount);
    Nodes[0] := TreeView.Items.AddChild(nil, NodeRoot);
    for i:=Low(Strs) to High(Strs) do Strs[i] := #255;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    First;
    while not Eof do
    begin
      for i:=Low(Strs) to High(Strs) do
        if Strs[i]<>Fields[i].AsString then
        begin
          Strs[i] := Fields[i].AsString;
          Nodes[i+1] := TreeView.Items.AddChild(Nodes[i],Fields[i].AsString);
        end;
      Next;
    end;
    Close;
  end;
end;

Answer 6

我以前曾做过，不过只能做到两层，你如果有兴趣的话留下你的E_Mail,今天晚上我发给你，因为源代码留在家里了。

Answer 7

确定结点的位置？
可在结点的DATA属性里存信息
确定该结点是第几层？
可通过结点的LEVEL得到
第几个结点？
item[i]

Answer 8

多谢，多谢我的信箱
[email protected]