本例效果图:
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.