DELPHI TreeView，动态添加父节点，子节点

Question

通过几个TStringList，动态添加。
Listurl: TStringList;
....: TStringList;
Listurl 的内容
aaa
sss
ddd
fff
Listne 的内容
111
222
333
444
Listid 的内容 可不可以用0和1判断是否是增加子节点
0
1
1
0
0

if (Listid[i] = '1') then
begin
node:=items.AddChild(node, Listurl[i]);
node:=items.AddChild(node, Listne[i]);

Answer 1

TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。

一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
1、count，节点个数。
2、item[index] ,通过index得到节点。

二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：
AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个节点，则后添加的节点将排在前面。该函数返回新添加的节点。
AddChildFirst添加第一个子节点，要求有父节点作为其参数。返回新添加的节点。
AddChild添加一个子节点，要求有父节点作为其参数。返回新添加的节点。
Add添加一个兄弟节点，要求有兄弟节点作为其参数。返回新添加的节点。

三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有：
GetFirstNode() 得到根节点。
然后配合TTreeNode.GetNext(),就可以访问所有的节点。

四、建树举例：

var
root_node,cur_node:TTreeNode;
begin
root_node:=AddFirst(nil,根节点1);
cur_node:=addChildfirst(root_node,nil,根节点1_child1);
add(cur_node,根节点1_child2);
root_node:=Add(nil,根节点2);
AddChildFirst(root_node,根节点2_child1);
end;

五、事件触发：
当从一个节点跳到另一个节点，会触发TTreeView.OnChange事件。该事件中，将传递node,即当前被选中的节点。

当修改一个节点的text时，会触发TTreeView.onEdit事件。

六、将节点和节点所对应的数据联系起来
对于每个TTreeNode,有个Data属性，可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。
1.先定义一个数据结构，作为记录我们要记录的数据。如：
PMyData=^TMyData;
TMyData=Record
Name:string;
Sex:String;
Age:integer;
end;

2.然后，创建数时，将节点和节点数据联系起来：
procedure TForm1.Button1Click(Sender: TObject);
var
RecPtr: PMyData;
begin
New(RecPtr); //记住，一定要先分配内存。有几个节点，就要分配几次内存。
RecPtr^.Name:='康康';
RecPtr^.Sex := '男';
RecPtr^.Age := 18+TreeView1.Items.Count;
TreeView1.items.AddObject(nil,'节点数据结构 '+inttostr(TreeView1.Items.Count),RecPtr);
end;

3.当我们选中一个节点时，就可以使用我们的数据了。
procedure TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);
var
RecPtr: PMyData;
begin
if TreeView1.Selected=nil then Exit;
if TreeView1.Selected.Data<>nil then begin
RecPtr:=TreeView1.Selected.Data;
ShowMessage(TreeView1.Selected.Text+#13#10+'姓名：'+RecPtr.Name+#13#10+'性别：'+RecPtr.Sex+#13#10+'年龄：'+inttostr(RecPtr.Age));
end;

七、一般使用流程：
1、添加全局变量：
b_first:boolean; //记录是否是第一次访问节点，因为此时数据还未准备好，而一旦访问节点就会触发OnChange事件，在此事件处理函数中也许会出错。
2、在FormCreate中，
a、设置b_first:=true;
b. 创建数并将节点与数据联系。
3、在FormShow中
设置b_first:=false;
4.在事件OnChange中处理节点被选中事件。
5.在Edit中处理节点被修改Text事件。
并调用OnChange.
6.在 TreeView.Destory中
释放Data 中指向的内存空间。

Answer 2

给楼主做了一个函数 DELPHI 7下面测试通过
procedure TForm1.LoadTree_sl(TreeView: TTreeView);
var
MyNode: array[0..6] of TTreeNode; //保存各级节点,最长支持6级(重点)
Level: integer; ///级数
i:Integer;
Listurl,Listne,Listid:TStringList;
begin
Listurl:= TStringList.Create;
Listne := TStringList.Create;
Listid := TStringList.Create;

Listurl.Add('aaa');
Listurl.Add('bbb');
Listurl.Add('ccc');
Listurl.Add('ddd');
Listne.add('111');
Listne.add('222');
Listne.add('333');
Listne.add('444');
Listid.Add('1');
Listid.Add('0');
Listid.Add('1');
Listid.Add('0');
MyNode[0] := TreeView.Items.Add(TreeView.TopItem, '目录');
try
TreeView.Items.BeginUpdate;
for i:= 0 to Listurl.count-1 do
begin

if Listid.Strings[i] = '1' then
MyNode[1] := TreeView.Items.AddChild(TreeView.TopItem, Listne.Strings[i]);

end;

finally
MyNode[0].Expand(False); //展开首节点
TreeView.Items.EndUpdate;
end;

end;

楼主 既然你是想添加一个功能块的内容，首先我的建议是你创建一个结构体
如：
TMyRec = record
url:string;
tne:string;
id:integer;
end;
pRec = ^TMyRec; //结构（树形相关时有用）

然后以后的事，这个楼主可以自己想一下，我问题可以问我

Answer 3

procedure TMainForm.TreeviewShow(Sender: TObject);
var
node1,subnode1: TTreeNode;
i: Integer;
begin
Treeview1.Selected := nil;
node1 := Treeview1.Items.AddFirst(nil,'user');
ADOTable1.Active := True;
while not ADOTable1.Eof do
for i := 0 to ADOTable1.RecordCount - 1 do
begin
Treeview1.Items.AddChildObject(node1, ADOTable1.FieldByName('USERNAME').AsString, nil);
ADOTable1.Next;
end;
end;

Answer 4

var
Node:TTreeNode;
begin
Node:=TreeView1.Items.Add(nil,'1111'); //向TreeView1添加一个根节点1111
TreeView1.Items.Add(Node,'2222'); //向1111节点添加一个子节点2222
end;

Answer 5

var
pNode: TTreeNode;
begin
pNode := treeview.Items.AddChild(nil, '父节点');
treeview.Items.AddChild(pNode, '子节点');
end;