哪位老大给我讲讲delphi里的treeview怎么用啊? 主要是生成节点,最好举个例子,太感谢了!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var a: TTreeNode;begin a := TTreeNode.Create(Treeview1.items); a := treeview1.Items.Add(nil,'Root'); treeview1.Items.AddChild(a,'bb'); http://extend.hk.hi.cn/~kiven/tips/5.htmhttp://dhome.myrice.com/Tips/ComponentUsing/tip14-1.htm TREEVIEW的使用基本信息:TreeView 是一个显示树型结构的控件每一个节点都是一个新类使用具有代表性每个节点都有四个值:TEXT:显示文字 Image Index:显示图形序号Selected Index:State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)varCatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象beginTvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上{ 在根标题下建立一个新的子标题 }CatNode := TvwTips.Items.AddChild(TvwTips.Items.GetFirstNode'New Category' );CatNode.ImageIndex := 1;CatNode.SelectedIndex := 2;CatNode.EditText; { 允许用户改变这个标题 }end;增加下一级目录(内容):varParentNodeTipNode : TTreeNode; //先建立TREEVIEW使用的子对象VersionNum : Integer;beginTvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }ParentNode := TvwTips.Selected; { 取出当前的选中节点 }if ParentNode.Level = nlTip then{ Parent cannot be a tip node }ParentNode := TvwTips.Selected.Parent;TipNode := TvwTips.Items.AddChildObject( ParentNode'NewSubject'Pointer( VersionNum ) );TipNode.ImageIndex := 3; { Normal tip bitmap }TipNode.SelectedIndex := 4; { Highlighted tip bitmap }TipNode.MakeVisible; { Move new tip node into view }TipNode.EditText; { Immediately allow user to edit subject }EnableTreeViewFunctions( TipNode.Level );RtfTip.Clear;RtfTip.Modified := False;end;(2)说明TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点函数类型为:TTreeNodeTvwTips.Items.Count 返回当前TreeView的全部节点数整数TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别根目录为0TvwTips.Selected.Parent 返回当前选中节点上级节点函数类型为:TTreeNodeTREEVIEW的使用基本信息:TreeView 是一个显示树型结构的控件每一个节点都是一个新类使用具有代表性每个节点都有四个值:TEXT:显示文字 Image Index:显示图形序号Selected Index:State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)varCatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象beginTvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上{ 在根标题下建立一个新的子标题 }CatNode := TvwTips.Items.AddChild(TvwTips.Items.GetFirstNode'New Category' );CatNode.ImageIndex := 1;CatNode.SelectedIndex := 2;CatNode.EditText; { 允许用户改变这个标题 }end;增加下一级目录(内容):varParentNodeTipNode : TTreeNode; //先建立TREEVIEW使用的子对象VersionNum : Integer;beginTvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }ParentNode := TvwTips.Selected; { 取出当前的选中节点 }if ParentNode.Level = nlTip then{ Parent cannot be a tip node }ParentNode := TvwTips.Selected.Parent;TipNode := TvwTips.Items.AddChildObject( ParentNode'NewSubject'Pointer( VersionNum ) );TipNode.ImageIndex := 3; { Normal tip bitmap }TipNode.SelectedIndex := 4; { Highlighted tip bitmap }TipNode.MakeVisible; { Move new tip node into view }TipNode.EditText; { Immediately allow user to edit subject }EnableTreeViewFunctions( TipNode.Level );RtfTip.Clear;RtfTip.Modified := False;end;(2)说明TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点函数类型为:TTreeNodeTvwTips.Items.Count 返回当前TreeView的全部节点数整数TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别根目录为0TvwTips.Selected.Parent 返回当前选中节点上级节点函数类型为:TTreeNode 怎样设置TreeList不能选择父节点? 关于Timage的问题 delphi 数据分页怎么实现? 日期出错问题 由于分辨率不同解决字体的问题 请教界面与代码问题? 一般来说下载的控件在哪个文件夹里啊? mediaplayer播放mid不稳定、变调 请问如何使一个动态创建的组件,使它属于另一个control SQL查询速度的问题? (在线等待..初程问题..)我编程时遇到几个问题,希望大家帮忙! 国庆到!祝福大家节日快乐 由于时间有限顺便把斑竹辞了
a: TTreeNode;
begin
a := TTreeNode.Create(Treeview1.items);
a := treeview1.Items.Add(nil,'Root');
treeview1.Items.AddChild(a,'bb');
http://dhome.myrice.com/Tips/ComponentUsing/tip14-1.htm
基本信息:
TreeView 是一个显示树型结构的控件
每一个节点都是一个新类
使用具有代表性
每个节点都有四个值:
TEXT:显示文字 Image Index:显示图形序号
Selected Index:
State Index:
(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)
增加根目录下的节点:(节点)
var
CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
{ 在根标题下建立一个新的子标题 }
CatNode := TvwTips.Items.AddChild(
TvwTips.Items.GetFirstNode
'New Category' );
CatNode.ImageIndex := 1;
CatNode.SelectedIndex := 2;
CatNode.EditText; { 允许用户改变这个标题 }
end;
增加下一级目录(内容):
var
ParentNode
TipNode : TTreeNode; //先建立TREEVIEW使用
的子对象
VersionNum : Integer;
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
ParentNode := TvwTips.Selected; { 取出当前的选中节点 }
if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
ParentNode := TvwTips.Selected.Parent;
TipNode := TvwTips.Items.AddChildObject( ParentNode
'New
Subject'
Pointer( VersionNum ) );
TipNode.ImageIndex := 3; { Normal tip bitmap }
TipNode.SelectedIndex := 4; { Highlighted tip bitmap }
TipNode.MakeVisible; { Move new tip node into view }
TipNode.EditText; { Immediately allow user to edit subject }
EnableTreeViewFunctions( TipNode.Level );
RtfTip.Clear;
RtfTip.Modified := False;
end;
(2)说明
TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点
函数类型为
:TTreeNode
TvwTips.Items.Count 返回当前TreeView的全部节点数
整数
TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别
根目录为0
TvwTips.Selected.Parent 返回当前选中节点上级节点
函数类型为
:TTreeNode
TREEVIEW的使用
基本信息:
TreeView 是一个显示树型结构的控件
每一个节点都是一个新类
使用具有代表性
每个节点都有四个值:
TEXT:显示文字 Image Index:显示图形序号
Selected Index:
State Index:
(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)
增加根目录下的节点:(节点)
var
CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
{ 在根标题下建立一个新的子标题 }
CatNode := TvwTips.Items.AddChild(
TvwTips.Items.GetFirstNode
'New Category' );
CatNode.ImageIndex := 1;
CatNode.SelectedIndex := 2;
CatNode.EditText; { 允许用户改变这个标题 }
end;
增加下一级目录(内容):
var
ParentNode
TipNode : TTreeNode; //先建立TREEVIEW使用
的子对象
VersionNum : Integer;
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
ParentNode := TvwTips.Selected; { 取出当前的选中节点 }
if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
ParentNode := TvwTips.Selected.Parent;
TipNode := TvwTips.Items.AddChildObject( ParentNode
'New
Subject'
Pointer( VersionNum ) );
TipNode.ImageIndex := 3; { Normal tip bitmap }
TipNode.SelectedIndex := 4; { Highlighted tip bitmap }
TipNode.MakeVisible; { Move new tip node into view }
TipNode.EditText; { Immediately allow user to edit subject }
EnableTreeViewFunctions( TipNode.Level );
RtfTip.Clear;
RtfTip.Modified := False;
end;
(2)说明
TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点
函数类型为
:TTreeNode
TvwTips.Items.Count 返回当前TreeView的全部节点数
整数
TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别
根目录为0
TvwTips.Selected.Parent 返回当前选中节点上级节点
函数类型为
:TTreeNode