PAS
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