Delphi练习——TreeView使用

unit U_TreeView;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ComCtrls;

type
TfrmEncode = class(TForm)
tvEncode: TTreeView;
lblEncode: TLabel;
edtEncode: TEdit;
grpEncode: TGroupBox;
btnAdd: TButton;
btnDelete: TButton;
procedure btnAddClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmEncode: TfrmEncode;

implementation

{$R *.dfm}

//“添加节点”按钮点击事件处理过程
procedure TfrmEncode.btnAddClick(Sender: TObject);
begin
//判断是否输入了要添加节点的内容
if Trim(edtEncode.Text) = '' then
begin
ShowMessage('请输入要添加节点的内容');
Exit;
end;
//添加子节点
tvEncode.Items.AddChild(tvEncode.Selected,edtEncode.Text);
end;

//“删除节点”按钮点击事件处理过程
procedure TfrmEncode.btnDeleteClick(Sender: TObject);
begin
//没有选中节点
if tvEncode.Selected = nil then
begin
ShowMessage('请选择要删除的节点');
Exit;
end;
//选中的节点包含子节点
if tvEncode.Selected.HasChildren then
begin
if MessageBox(Handle, '该节点包含子节点，确实要删除吗？', '提示信息',MB_YESNO) = idyes then
begin
//删除选中节点
tvEncode.Selected.Delete;
end;
end
//选中的节点不包含子节点
else
begin
tvEncode.Selected.Delete;
end;
end;

procedure TfrmEncode.FormCreate(Sender: TObject);
begin
tvEncode.ReadOnly := True;
end;

end.

object frmEncode: TfrmEncode
Left = 816
Top = 144
Width = 350
Height = 234
Caption = 'TreeView'#32451#20064
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lblEncode: TLabel
Left = 144
Top = 13
Width = 193
Height = 36
AutoSize = False
Caption = #35831#36755#20837#32534#30721
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object tvEncode: TTreeView
Left = 10
Top = 11
Width = 132
Height = 181
Indent = 19
TabOrder = 0
Items.Data = {
010000001D0000000000000000000000FFFFFFFFFFFFFFFF0000000004000000
04B1E0C2EB210000000000000000000000FFFFFFFFFFFFFFFF00000000010000
0008636F646566616E73250000000000000000000000FFFFFFFFFFFFFFFF0000
0000000000000C636F646566616E732E6E6574230000000000000000000000FF
FFFFFFFFFFFFFF00000000000000000AD4B4C2EBB0AEBAC3D5DF1D0000000000
000000000000FFFFFFFFFFFFFFFF000000000000000004B0D9B6C81D00000000
00000000000000FFFFFFFFFFFFFFFF000000000000000004D0C2C0CB}
end
object edtEncode: TEdit
Left = 152
Top = 65
Width = 179
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1
end
object grpEncode: TGroupBox
Left = 153
Top = 110
Width = 179
Height = 77
Caption = #25511#21046#25353#38062#36873#39033
TabOrder = 2
object btnAdd: TButton
Left = 16
Top = 29
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 0
OnClick = btnAddClick
end
object btnDelete: TButton
Left = 96
Top = 29
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 1
OnClick = btnDeleteClick
end
end
end