TTreeView講解 [3] - Add、AddChild、AddFirst、AddChildFirst

本例效果圖:

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　ComCtrls,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　TreeView1:　TTreeVIEw;　
　　Button1:　TButton;　
　　Button2:　TButton;　
　　Button3:　TButton;　
　　Button4:　TButton;　
　　Button5:　TButton;　
　　procedure　Button1Click(Sender:　TObject);　
　　procedure　Button2Click(Sender:　TObject);　
　　procedure　Button3Click(Sender:　TObject);　
　　procedure　Button4Click(Sender:　TObject);　
　　procedure　Button5Click(Sender:　TObject);　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　
　
{方法1:　按職務順序入場}　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　Nodes:　TTreeNodes;　
　node:　TTreeNode;　
begin　
　Nodes　:=　TreeVIEw1.Items;　
　
　{添加第一個元素}　
　node　:=　Nodes.Add(nil,　'一連長');　{'一連長'好孤獨,　旁邊沒人}　
　
　{現在　node　代表"一連長",　繼續添加與其平級人員,　當然要參照"一連長"}　
　Nodes.Add(node,　'二連長');　
　Nodes.Add(node,　'三連長');　
　
　{安排"一連"的下一層:　"排長";　同時讓　node　指向"一排長"}　
　node　:=　Nodes.AddChild(node,　'一排長');　
　Nodes.Add(node,　'二排長');　
　Nodes.Add(node,　'三排長');　
　
　{添加平級用　Add,　添加下級用　AddChild;　繼續:}　
　node　:=　Nodes.AddChild(node,　'一班長');　
　Nodes.Add(node,　'二班長');　
　Nodes.Add(node,　'三班長');　
　
　{還有　AddChildFirst　和　AddFirst　是專門添加第一個的,　假如忘了第一個...}　
　node　:=　Nodes.AddChild(node,　'戰士2');　
　Nodes.Add(node,　'戰士3');　
　Nodes.Add(node,　'戰士4');　
　Nodes.AddFirst(node,　'戰士1');　{用　AddFirst　可以讓它站在前面}　
end;　
　
　
{方法2:　按先後順序入場}　
procedure　TForm1.Button2Click(Sender:　TObject);　
var　
　Nodes:　TTreeNodes;　
　node:　TTreeNode;　
begin　
　Nodes　:=　TreeVIEw1.Items;　
　
　node　:=　Nodes.Add(nil,　'一連長');　
　node　:=　Nodes.AddChild(node,　'一排長');　
　node　:=　Nodes.AddChild(node,　'一班長');　
　node　:=　Nodes.AddChild(node,　'戰士1');　
　Nodes.Add(node,　'戰士2');　
　Nodes.Add(node,　'戰士3');　
　Nodes.Add(node,　'戰士4');　
　
　node　:=　node.Parent;　　　　{讓　node　指向上一層}　
　Nodes.Add(node,　'二班長');　
　Nodes.Add(node,　'三班長');　
　
　node　:=　node.Parent;　
　Nodes.Add(node,　'二排長');　
　Nodes.Add(node,　'三排長');　
　
　node　:=　node.Parent;　
　Nodes.Add(node,　'二連長');　
　Nodes.Add(node,　'三連長');　
end;　
　
　
{方法3:　因為沒使用　TTreeNodes　和　TTreeNode,　挺麻煩的}　
procedure　TForm1.Button3Click(Sender:　TObject);　
begin　
　TreeVIEw1.Items.Add(nil,　'一連長');　
　TreeView1.Items.Add(TreeVIEw1.Items[0],　'二連長');　
　TreeView1.Items.Add(TreeVIEw1.Items[0],　'三連長');　
　
　TreeView1.Items.AddChild(TreeVIEw1.Items[0],　'一排長');　
　TreeView1.Items.Add(TreeVIEw1.Items[0].Item[0],　'二排長');　
　TreeView1.Items.Add(TreeVIEw1.Items[0].Item[0],　'三排長');　
　
　TreeView1.Items.AddChild(TreeVIEw1.Items[0].Item[0],　'一班長');　
　TreeView1.Items.Add(TreeVIEw1.Items[0].Item[0].Item[0],　'二班長');　
　TreeView1.Items.Add(TreeVIEw1.Items[0].Item[0].Item[0],　'三班長');　
　
　TreeView1.Items.AddChild(TreeVIEw1.Items[0].Item[0].Item[0],　'戰士1');　
　TreeView1.Items.Add(TreeVIEw1.Items[0].Item[0].Item[0].Item[0],　'戰士2');　
　TreeView1.Items.Add(TreeVIEw1.Items[0].Item[0].Item[0].Item[0],　'戰士3');　
　TreeView1.Items.Add(TreeVIEw1.Items[0].Item[0].Item[0].Item[0],　'戰士4');　
end;　
　
　
{方法4:　用　with　簡化了"方法3",　也夠繞的;　推薦使用前兩種方法}　
procedure　TForm1.Button4Click(Sender:　TObject);　
begin　
　with　TreeVIEw1　do　begin　
　　Items.Add(nil,　'一連長');　
　　Items.Add(Items[0],　'二連長');　
　　Items.Add(Items[0],　'三連長');　
　
　　Items.AddChild(Items[0],　'一排長');　
　　Items.Add(Items[0].Item[0],　'二排長');　
　　Items.Add(Items[0].Item[0],　'三排長');　
　
　　Items.AddChild(Items[0].Item[0],　'一班長');　
　　Items.Add(Items[0].Item[0].Item[0],　'二班長');　
　　Items.Add(Items[0].Item[0].Item[0],　'三班長');　
　
　　Items.AddChild(Items[0].Item[0].Item[0],　'戰士1');　
　　Items.Add(Items[0].Item[0].Item[0].Item[0],　'戰士2');　
　　Items.Add(Items[0].Item[0].Item[0].Item[0],　'戰士3');　
　　Items.Add(Items[0].Item[0].Item[0].Item[0],　'戰士4');　
　end;　
end;　
　
　
procedure　TForm1.Button5Click(Sender:　TObject);　
begin　
　TreeVIEw1.Items.Clear;　
　TButton(Sender).Caption　:=　'清空';　
end;　
　
end.