?? unit1.pas
字號:
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -