delphi treeview使用详解（delphi关于treeview传值）

本文目录

• delphi关于treeview传值
• Delphi TreeView 使用方法连接access数据库（高分）
• 关于的Delphi 的treeview控件的用法请教大家
• 如何利用delphi中treeview的data属性
• DELPHI TreeView，动态添加父节点，子节点
• delphi 请问怎么动态的在树中增加节点，用TreeView或者ListVie
• 在delphi7中，怎么根据treeview中不同节点的内容，调出不同的窗口，谢谢！

delphi关于treeview传值

type myint = ^string; 定义一个字符串指针
var
pt : myint;
procedure Tfrom1.RzTreeView1Change(Sender: TObject; Node: TTreeNode);
var
s1 : string;
begin
s1 := myint(RzTreeView1.Selected.Data)^;取选中的值
end;

Delphi TreeView 使用方法连接access数据库（高分）

unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, ComCtrls;
type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } procedure AddClass(AId:integer;FatherNode:TTreeNode);//添加分类过程 procedure AddDataToDB(CurrNode,FatherNode:TTreeNode);//添加实际数据到数据库 public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AddClass(AId: integer;FatherNode:TTreeNode);var QryTmp:TADOQuery; myNode:TTreeNode; myLabel:TLabel;begin QryTmp:=TADOQuery.Create(self); QryTmp.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’+extractfilepath(application.ExeName)+’test.mdb;Persist Security Info=False’; QryTmp.SQL.Add(’select * from tb1’); QryTmp.SQL.Add(’where FatherId=’+inttostr(AId)); QryTmp.Open; while not QryTmp.Eof do begin myNode:=Treeview1.Items.AddChild(FatherNode,QryTmp.fieldbyname(’CName’).AsString);
//创建标签，caption存放各分支的AutoId表识 myLabel:=TLabel.Create(self); myLabel.Visible:=false; myLabel.Caption:=QryTmp.fieldbyname(’AutoId’).AsString; myNode.Data:=myLabel;
AddClass(QryTmp.fieldbyname(’AutoId’).AsInteger,myNode); //递归调用过程 QryTmp.Next; end; QryTmp.Free;end;
procedure TForm1.FormCreate(Sender: TObject);begin AddClass(0,nil);end;
procedure TForm1.Button1Click(Sender: TObject);var strName:string; myNode:TTreeNode;begin strName:=inputbox(’新增’,’请输入分类名称： ’,’’); strName:=trim(strName); if strName=’’ then exit; myNode:=treeview1.Items.Add(treeview1.Selected,strName); if assigned(treeview1.Selected) then AddDataToDB(myNode,treeview1.Selected.Parent) else AddDataToDB(myNode,nil); myNode.selected:=true;end;
procedure TForm1.Button2Click(Sender: TObject);var strName:string; myNode:TTreeNode;begin strName:=inputbox(’新增’,’请输入分类名称： ’,’’); strName:=trim(strName); if strName=’’ then exit; myNode:=treeview1.Items.AddChild(treeview1.Selected,strName); AddDataToDB(myNode,treeview1.Selected); myNode.selected:=true;end;
procedure TForm1.AddDataToDB(CurrNode,FatherNode: TTreeNode);var myLabel:TLabel; QryTmp:TADOQuery; AId:integer;begin if not assigned(FatherNode) then AId:=0 else if not assigned(FatherNode.Data) then AId:=0 else AId:=strtoint(TLabel(FatherNode.Data).caption); QryTmp:=TADOQuery.Create(self); QryTmp.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’+extractfilepath(application.ExeName)+’test.mdb;Persist Security Info=False’; QryTmp.SQL.Add(’select * from tb1’); QryTmp.SQL.Add(’where FatherId=’+inttostr(AId)); QryTmp.Open; QryTmp.Append; QryTmp:=CurrNode.Text; QryTmp.Post;
//创建记录currNode的AutoId表识标 myLabel:=TLabel.Create(self); myLabel.Visible:=False; MyLabel.Caption:=QryTmp.fieldbyname(’AutoId’).AsString; CurrNode.Data:=myLabel; QryTmp.Free;end;
procedure TForm1.Button3Click(Sender: TObject);var QryTmp:TADOQuery;begin if not assigned(treeview1.Selected) then exit; if application.MessageBox(’是否删除分类及下级分类？’,’提示’,mb_yesno+mb_iconquestion)=idno then exit; //删除下级别分类 QryTmp:=TADOQuery.Create(self); QryTmp.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’+extractfilepath(application.ExeName)+’test.mdb;Persist Security Info=False’; QryTmp.SQL.Add(’delete * from tb1’); QryTmp.SQL.Add(’where FatherId=’+TLabel(Treeview1.Selected.data).Caption); QryTmp.ExecSQL; QryTmp.SQL.Clear; QryTmp.SQL.Add(’delete * from tb1’); QryTmp.SQL.Add(’where AutoId=’+TLabel(Treeview1.Selected.data).Caption); QryTmp.ExecSQL; Treeview1.Selected.Delete;end;
procedure TForm1.Button4Click(Sender: TObject);var QryTmp:TADOQuery; strName:string;begin if not assigned(treeview1.Selected) then exit; strName:=inputbox(’更改’,’请输入新的名称： ’,’’); strName:=trim(strName); if strName=’’ then exit; //删除下级别分类 QryTmp:=TADOQuery.Create(self); QryTmp.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’+extractfilepath(application.ExeName)+’test.mdb;Persist Security Info=False’; QryTmp.SQL.Add(’update tb1 set CName=’+’’’’+strName+’’’’); QryTmp.SQL.Add(’where AutoId=’+TLabel(Treeview1.Selected.data).Caption); QryTmp.ExecSQL; Treeview1.Selected.Text:=strName;end;
end.
程序已经发给你了。

关于的Delphi 的treeview控件的用法请教大家

var
Node1 : TTreeNode;
Node2 : TTreeNode;
begin
Node1:=TreeView1.Items.Add(nil,’a’);//根节点a
Node2:=TreeView1.Items.Add(nil,’b’);//根节点b

TreeView1.Items.AddChild(Node1 ,’a1’);//根节点a下的节点
TreeView1.Items.AddChild(Node2 ,’b1’);//根节点b下的节点
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.Data).FType;
记得在销毁是要释放内存：
Dispose(TreeView1.Items.Item.Data);

DELPHI TreeView，动态添加父节点，子节点

TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。
一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
1、count，节点个数。
2、item ,通过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.Data《》nil 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或者ListVie

var
NewNode:TTreeNode;begin
with
Treeview1.items
do
begin
NewNode:=Add(nil,’Root1’);
//增加第一个根结点
AddChild(NewNode,’Child01’);
//在根结点下增加子结点
AddChile(NewNode,.........
.............
//在该根结点下继续增加子结点
NewNode:=Add(nil,’Root2’);
//增加第二个根结点
..........
end;end;

在delphi7中，怎么根据treeview中不同节点的内容，调出不同的窗口，谢谢！

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
//当节点改变时根据内容弹出不同的窗口
　if Node.Text = ’aaaa’ then
winTest.Show; //或winTest.ShowModal弹出模态窗口。
end;