声明：不是好例子，只是正好做到！
unit MainU;
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);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
treeview1.Items.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Anode:Ttreenode;
Anodet:Ttreenode;
begin
Anode:=treeview1.Items.Add(nil,'SDS');
anodet:=treeview1.Items.AddChild(Anode,'财务部');
treeview1.Items.AddChild(anodet,'张');
treeview1.Items.AddChild(anodet,'栗');
treeview1.Items.AddChild(anode,'业务部');
treeview1.Items.AddChild(anode,'专卖部');
anodet:=treeview1.Items.AddChild(anode,'企划部');
treeview1.Items.AddChild(anodet,'曹');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if treeview1.Selected=nil then exit;
treeview1.Selected.Expand(true);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
treeview1.Items.AddChild(treeview1.Selected,'X咿');
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if treeview1.Selected=nil then exit;
treeview1.Items.Delete(treeview1.Selected);
end;
end.
