TreeView的主要使用方法... 包括添加一个Item、添加一个SubItem、删除一个Item和SubItem等以及主要的属性,要有实例说明,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TreeView使用笔记TreeView由节点构成,建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象,这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性:1、count,节点个数。2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有:AddFirst添加第一个根节点。由此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后添加的节点将排在前面。该函数返回新添加的节点。AddChildFirst添加第一个子节点,要求有父节点作为其参数。返回新添加的节点。AddChild添加一个子节点,要求有父节点作为其参数。返回新添加的节点。Add添加一个兄弟节点,要求有兄弟节点作为其参数。返回新添加的节点。三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有:GetFirstNode() 得到根节点。然后配合TTreeNode.GetNext(),就可以访问所有的节点。四、建树举例:var root_node,cur_node:TTreeNode;begin root_node:=AddFirst(nil,'根节点1'); cur_node:=addChildfirst(root_node,nil,'根节点1_child1'); add(cur_node,'根节点1_child2'); root_node:=Add(nil,'根节点2'); AddChildFirst(root_node,''根节点2_child1'); end; 五、事件触发:当从一个节点跳到另一个节点,会触发TTreeView.OnChange事件。该事件中,将传递node,即当前被选中的节点。当修改一个节点的text时,会触发TTreeView.onEdit事件。六、将节点和节点所对应的数据联系起来对于每个TTreeNode,有个Data属性,可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。1.我们先定义一个数据结构,作为记录我们要记录的数据。如:type PMyData=^TMyData; TMyData=Record sFName:string; sLName:String; nIndex:integer; end;2.然后,创建数时,将节点和节点数据联系起来:procedure TForm1.Button1Click(Sender: TObject);var myshuju: PMyData cur_node:TTreeNode;begin New(MyRecPtr); //记住,一定要先分配内存。有几个节点,就要分配几次内存。 myshuju^.FName:=Edit1.Text; Myshuju^.LName := Edit2.Text; TreeViewIndex := StrToInt(Edit3.Text); with TreeView1 do begin cur_node:=items.AddFirst(nil,'first'); cur_node.data:=myshuju; end;end;3.当我们选中一个节点时,就可以使用我们的数据了。procedure TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);begin if node.data<>nil then self.label1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lnameend;七、一般使用流程:1、添加全局变量: b_first:boolean; //记录是否是第一次访问节点,因为此时数据还未准备好,而一旦访问节点就会触发OnChange事件,在此事件处理函数中也许会出错。2、在FormCreate中, a、设置b_first:=true; b. 创建数并将节点与数据联系。3、在FormShow中 设置b_first:=false;4.在事件OnChange中处理节点被选中事件。5.在Edit中处理节点被修改Text事件。 并调用OnChange.6.在 TreeView.Destory中 释放Data 中指向的内存空间。//----------------------------------------------------------------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;增加下一级目录(内容):varParentNode, TipNode : 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,'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 返回当前选中节点的在目录树中的级别,根目录为0TvwTips.Selected.Parent 返回当前选中节点上级节点,函数类型为:TTreeNode 写的很详细呢!刚才我自己还发现没有Node.data这个东东呢,觉得奇怪看了楼上的,一找真的有哦。不过我发现delphi的自动键入功能真的很差劲阿!!!这个方面微软的确做的很好!!! treeview里树结点递归删除的问题,深度优先遍历子树,一个一个删除节点procedure deletetree(node:ttreenode)begin if node = nil then exit; deletetree(node.getfirstchild); deletetree(node.getnextchild(node)); delete node;///删除节点end;=================================树结点图:a---+11----------12 %%+------b-------u | | | +------x | +c | +d现在要删除%%结点,它不但删了%%结点下的以及它本身,连c,d两结点也删了这怎么回事? delphi中导入excel语法 VC++ 代码转 Delphi 怎样显示父类窗体上的控件? 如何使用 Table及Query? 发言即给分! 关于sql语句问题 在线等 马上给分 求助:三层系统中BDE的问题 请问如何得到当前系统菜单的宽度??? 为什么ClientSocket1.Open打不开连接 TTable 的Locate 部分匹配不对劲 如何实现表单上层的问题 怎么做出新奇的Hint? Delphi中如何判断一个对象已经创建?谢谢。
1、count,节点个数。
2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有:
AddFirst添加第一个根节点。由此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后添加的节点将排在前面。该函数返回新添加的节点。
AddChildFirst添加第一个子节点,要求有父节点作为其参数。返回新添加的节点。
AddChild添加一个子节点,要求有父节点作为其参数。返回新添加的节点。
Add添加一个兄弟节点,要求有兄弟节点作为其参数。返回新添加的节点。三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有:
GetFirstNode() 得到根节点。
然后配合TTreeNode.GetNext(),就可以访问所有的节点。四、建树举例:var
root_node,cur_node:TTreeNode;
begin
root_node:=AddFirst(nil,'根节点1');
cur_node:=addChildfirst(root_node,nil,'根节点1_child1');
add(cur_node,'根节点1_child2');
root_node:=Add(nil,'根节点2');
AddChildFirst(root_node,''根节点2_child1');
end; 五、事件触发:
当从一个节点跳到另一个节点,会触发TTreeView.OnChange事件。该事件中,将传递node,即当前被选中的节点。当修改一个节点的text时,会触发TTreeView.onEdit事件。
六、将节点和节点所对应的数据联系起来
对于每个TTreeNode,有个Data属性,可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。
1.我们先定义一个数据结构,作为记录我们要记录的数据。如:
type
PMyData=^TMyData;
TMyData=Record
sFName:string;
sLName:String;
nIndex:integer;
end;2.然后,创建数时,将节点和节点数据联系起来:
procedure TForm1.Button1Click(Sender: TObject);
var
myshuju: PMyData
cur_node:TTreeNode;
begin
New(MyRecPtr); //记住,一定要先分配内存。有几个节点,就要分配几次内存。
myshuju^.FName:=Edit1.Text;
Myshuju^.LName := Edit2.Text;
TreeViewIndex := StrToInt(Edit3.Text);
with TreeView1 do
begin
cur_node:=items.AddFirst(nil,'first');
cur_node.data:=myshuju;
end;
end;3.当我们选中一个节点时,就可以使用我们的数据了。
procedure TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);
begin
if node.data<>nil then
self.label1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lname
end;
七、一般使用流程:
1、添加全局变量:
b_first:boolean; //记录是否是第一次访问节点,因为此时数据还未准备好,而一旦访问节点就会触发OnChange事件,在此事件处理函数中也许会出错。
2、在FormCreate中,
a、设置b_first:=true;
b. 创建数并将节点与数据联系。
3、在FormShow中
设置b_first:=false;
4.在事件OnChange中处理节点被选中事件。
5.在Edit中处理节点被修改Text事件。
并调用OnChange.
6.在 TreeView.Destory中
释放Data 中指向的内存空间。
//----------------------------------------------------------------
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
遍历子树,一个一个删除节点
procedure deletetree(node:ttreenode)
begin
if node = nil then exit;
deletetree(node.getfirstchild);
deletetree(node.getnextchild(node));
delete node;///删除节点
end;
=================================
树结点图:
a---+11----------12
%%+------b-------u
| |
| +------x
|
+c
|
+d现在要删除%%结点,它不但删了%%结点下的以及它本身,连c,d两结点也删了
这怎么回事?