unit1.pas

帮助如何使用treeview,各位大侠多多指教

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;       //每一个节点都要建一个TTreeNode的对象(象ss,ss1,sss)
 itemcount,index,itt1,ind1:integer;
 itemstr,iii:string;
begin
  itemcount:=2;    //设置2个节点 ,根据需要项目来定.可以试试给3或别的数字看看
  ss:=treeview1.Items.GetFirstNode;   //给treeview1 每一个节点ss
  for index:=0 to itemcount-1 do          //此循环用反复添加
  begin
   itemstr:=intTostr(index);   // 给节点名称
   ss1:=treeview1.Items.AddChild(ss,itemstr);   //添加节点
   ss1.HasChildren:=true;      //此属性HasChildren用来限制此节点下是否可以增加子节点
   ss1.ImageIndex:=0;
   ss1.SelectedIndex:=1;


   
   itt1:=5;       //设置5个节点
   for ind1:=0 to itt1-1 do       //子节点添加循环
   begin
    iii:=intTostr(ind1);
    sss:=treeview1.Items.AddChild(ss1,iii);
    sss.HasChildren:=false;   //此属性HasChildren用来限制此节点下是否可以增加子节点
    sss.ImageIndex:=0;
   //dirnode.
   sss.SelectedIndex:=1;
  end;
  end;


end;

procedure TForm1.TreeView1Click(Sender: TObject);  //当点击节点时,
var
  chieldtree,ss:TTreenode;
  versi,inde:integer;
  str:string;
begin
  Treeview1.SetFocus;                  //设置treeview1得到焦点
  //versi:=TmenuItem(sender).tag;
  chieldtree:=treeview1.Selected;      //把treeview1所选中的节点给chieldtree变量赋值
  chieldtree.SelectedIndex:=2;
  //chieldtree.Text:='jkjkj';
  if chieldtree.haschildren=false then   //此外用来判断节点是否为最后节点
  begin
  str:=chieldtree.TreeView.Selected.Text;       //这里可以指向你所需要的文件,自己发挥.....

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

end.