為什么80%的碼農(nóng)都做不了架構(gòu)師？>>> ??

本例效果圖:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, StdCtrls, Grids, ExtCtrls;typeTForm1 = class(TForm)TreeView1: TTreeView;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject); varNodes: TTreeNodes;node: TTreeNode; beginTreeView1.Align := alLeft;Nodes := TreeView1.Items;node := Nodes.Add(nil, '一連長');node := Nodes.AddChild(node, '一排長');node := Nodes.AddChild(node, '一班長');node := Nodes.AddChild(node, '戰(zhàn)士1');Nodes.Add(node, '戰(zhàn)士2');Nodes.Add(node, '戰(zhàn)士3');Nodes.Add(node, '戰(zhàn)士4');node := node.Parent;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;{初始化} procedure TForm1.Button1Click(Sender: TObject); beginTreeView1.Items.Clear;FormCreate(nil);TButton(Sender).Caption := '初始化'; end;{刪除} procedure TForm1.Button2Click(Sender: TObject); varnode: TTreeNode; beginif not Boolean(TreeView1.Items) then Exit; {如果 TreeView1 無內(nèi)容}if TreeView1.SelectionCount = 0 then Exit; {如果無選擇}node := TreeView1.Selected;node.Delete;TButton(Sender).Caption := '刪除'; end;{刪除它的所有下級} procedure TForm1.Button3Click(Sender: TObject); varnode: TTreeNode; beginif not Boolean(TreeView1.Items) then Exit;if TreeView1.SelectionCount = 0 then Exit;node := TreeView1.Selected;if node.HasChildren then node.DeleteChildrenelse ShowMessage(node.Text + ' 沒有下級');TButton(Sender).Caption := '刪除下級'; end;{用 TTreeNodes 刪除} procedure TForm1.Button4Click(Sender: TObject); varnode: TTreeNode; beginif not Boolean(TreeView1.Items) then Exit;if TreeView1.SelectionCount = 0 then Exit;node := TreeView1.Selected;TreeView1.Items.Delete(node);TButton(Sender).Caption := '用 TTreeNodes 刪除'; end;{插入, 只能通過 TTreeNodes} procedure TForm1.Button5Click(Sender: TObject); varnode: TTreeNode; beginif not Boolean(TreeView1.Items) then Exit;if TreeView1.SelectionCount = 0 then Exit;node := TreeView1.Selected;TreeView1.Items.Insert(node, '新成員');TButton(Sender).Caption := '插入'; end;end.

轉(zhuǎn)載于:https://my.oschina.net/hermer/blog/319993

總結(jié)

以上是生活随笔為你收集整理的学习 TTreeView [7] - Insert、Delete的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。