delphitreeview(Delphitreeview索引值)
delphi TreeView怎样知道选的是子节点 ,并得到它子节点的TEXT
获取 TreeView 控件当前选中节点是否是子节点，可以通过节点（TTreeNode）的 Parent 属性成员，如果有 Parent ，则说明当前节点是子节点。
获取节点的 Text，可以直接访问节点（TTreeNode）的?Text 属性。
示例代码如下：
procedure?TForm1.btn1Click(Sender:?TObject);
var?CurItem:?TTreeNode;
begin
??CurItem?:=?tv1.Selected;
??if?CurItem??nil?then
??begin
????if?CurItem.Parentnil?then
??????ShowMessage('当前选中了子节点,?内容：'?+?CurItem.Text)
????else
??????ShowMessage('当前选中了父节点,?内容：'?+?CurItem.Text)
??end;
end;
代码运行截图：
DELPHI 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.先定义一个数据结构，作为记录我们要记录的数据。如：
PMyData=^TMyData;
TMyData=Record
Name:string;
Sex:String;
Age:integer;
end;
2.然后，创建数时，将节点和节点数据联系起来：
procedure TForm1.Button1Click(Sender: TObject);
var
RecPtr: PMyData;
begin
New(RecPtr); //记住，一定要先分配内存。有几个节点，就要分配几次内存。
RecPtr^.Name:='康康';
RecPtr^.Sex := '男';
RecPtr^.Age := 18+TreeView1.Items.Count;
TreeView1.items.AddObject(nil,'节点数据结构 '+inttostr(TreeView1.Items.Count),RecPtr);
end;
3.当我们选中一个节点时，就可以使用我们的数据了。
procedure TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);
var
RecPtr: PMyData;
begin
if TreeView1.Selected=nil then Exit;
if TreeView1.Selected.Datanil then begin
RecPtr:=TreeView1.Selected.Data;
ShowMessage(TreeView1.Selected.Text+#13#10+'姓名：'+RecPtr.Name+#13#10+'性别：'+RecPtr.Sex+#13#10+'年龄：'+inttostr(RecPtr.Age));
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 中指向的内存空间。
DELPHI 如何打开和 保存 TREEVIEW 的状态
??实现方法
??
将已经展开的节点索引?放在一个文本中
最后选中的那个节点索引放在最后一位
然后通过下面这个代码这实现
{
???TreeView1.Items[0].Expand(False);?//按节点索引?展开节点一级
???TreeView1.Select(TreeView1.Items[1],[]);//?按节点索引?选中节点
??
}
???TreeView1.Selected.AbsoluteIndex;?//选中的节点索引号
?
?
?保存TREEVIEW状态代码
{
??SaveTreeViewExplandState(TreeView1,'TreeView.txt');
}
procedure?SaveTreeViewExplandState(TreeView:?TTreeView;?FileName:?string);
var
??List:?TStringList;
??i:?Integer;
begin
??List?:=?TStringList.Create;
??With?TreeView?do
??begin
????for?i?:=?0?to?Items.Count?-?1?do
????begin
??????if?Items.Item[i].Expanded?then
????????List.Add(IntToStr(i));
????end;
????List.Add(IntToStr(Selected.AbsoluteIndex));
??end;
??List.SaveToFile(FileName);
??List.free;
end;
?
?加载TREEVIEW状态代码
{
LoadTreeViewExplandState(TreeView1,?'abc.txt');
}
procedure?LoadTreeViewExplandState(TreeView:?TTreeView;?FileName:?string);
var
??List:?TStringList;
??i:?Integer;
begin
??List?:=?TStringList.Create;
??with?List?do
??begin
????List.LoadFromFile(FileName);
????for?i?:=?0?to?Count?-?2?do?//最后一行放的是最后选中的那个节点索引
????begin
??????TreeView.Items[StrToInt(List[i])].Expand(False);
????end;
????TreeView.Select(TreeView.Items[StrToInt(List[Count?-?1])],?[]);
????free;
??end;
end;
如何利用delphi中treeview的data属性
定义一个结构体，保存你想要的数据：
pMaterialType = ^TMaterialType;
TMaterialType = record
FType: string;
end;
添加时：
var
pType: pMaterialType;
begin
....
new(pType);
pType.FType:= 'XXXX';
with TreeView1.Items.Add do
begin
Text:= '名称';
Data:= pType;
end;
...
使用时：
pMatrialType(TreeView1.Items.Item[intIndex].Data).FType;
记得在销毁是要释放内存：
Dispose(TreeView1.Items.Item[intIndex].Data);
