unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 ss,ss1,sss:TTreenode;       //每一個節(jié)點(diǎn)都要建一個TTreeNode的對象(象ss,ss1,sss)
 itemcount,index,itt1,ind1:integer;
 itemstr,iii:string;
begin
  itemcount:=2;    //設(shè)置2個節(jié)點(diǎn) ,根據(jù)需要項(xiàng)目來定.可以試試給3或別的數(shù)字看看
  ss:=treeview1.Items.GetFirstNode;   //給treeview1 每一個節(jié)點(diǎn)ss
  for index:=0 to itemcount-1 do          //此循環(huán)用反復(fù)添加
  begin
   itemstr:=intTostr(index);   // 給節(jié)點(diǎn)名稱
   ss1:=treeview1.Items.AddChild(ss,itemstr);   //添加節(jié)點(diǎn)
   ss1.HasChildren:=true;      //此屬性HasChildren用來限制此節(jié)點(diǎn)下是否可以增加子節(jié)點(diǎn)
   ss1.ImageIndex:=0;
   ss1.SelectedIndex:=1;


   
   itt1:=5;       //設(shè)置5個節(jié)點(diǎn)
   for ind1:=0 to itt1-1 do       //子節(jié)點(diǎn)添加循環(huán)
   begin
    iii:=intTostr(ind1);
    sss:=treeview1.Items.AddChild(ss1,iii);
    sss.HasChildren:=false;   //此屬性HasChildren用來限制此節(jié)點(diǎn)下是否可以增加子節(jié)點(diǎn)
    sss.ImageIndex:=0;
   //dirnode.
   sss.SelectedIndex:=1;
  end;
  end;


end;

procedure TForm1.TreeView1Click(Sender: TObject);  //當(dāng)點(diǎn)擊節(jié)點(diǎn)時,
var
  chieldtree,ss:TTreenode;
  versi,inde:integer;
  str:string;
begin
  Treeview1.SetFocus;                  //設(shè)置treeview1得到焦點(diǎn)
  //versi:=TmenuItem(sender).tag;
  chieldtree:=treeview1.Selected;      //把treeview1所選中的節(jié)點(diǎn)給chieldtree變量賦值
  chieldtree.SelectedIndex:=2;
  //chieldtree.Text:='jkjkj';
  if chieldtree.haschildren=false then   //此外用來判斷節(jié)點(diǎn)是否為最后節(jié)點(diǎn)
  begin
  str:=chieldtree.TreeView.Selected.Text;       //這里可以指向你所需要的文件,自己發(fā)揮.....

  memo1.Lines.Add(str);
  end;
end;

end.