delphi 树型显示

来源：百度知道 编辑：UC知道 时间：2024/09/27 07:19:55
delphi+access

首先连接数据库后,树型显示数据库内容,

然后鼠标点击一下树型内容,在dit1,edit2,edit3,edit4里分别显示数据库内容 也就是 点一下树型里的内容,在另一边显示详细内容...

delphi 出血者,希望大家给个代码,谢谢!!!!
现在又有一个问题了...
我加点分吧,大家帮帮我..

树型我已经做好了,
就差树型里的子节点加入鼠标双击事件
麻烦各位给个代码,感激不尽啊..

delphi 出血者, 额～～
子节点加入鼠标双击事件
在树的OnDBClick事件里写你要做的事就行了，
子节点可以自己判断一下，if RzTreeView1.Selected = RzTreeView1.Items.GetFirstNode then Exit;

en..................

我这有段类似的代码，你根据这情况自己去写吧，祝你成功
一、根据数据库产生树结构：
var
query_a:Tadoquery;
query_b:Tadoquery;
node,node1,node4:Ttreenode;
aaa:string;
begin
treeview.Items.BeginUpdate;
treeview.Items.Clear;
//node:=treeview.Items.Add(nil,'ff');
adoquery1.Open;
adoquery1.First;
while not adoQuery1.Eof do
begin
if length(adoquery1.FieldByName('menu_id').AsString)=2 then
begin
node1 := treeview.Items.AddChildObject(nil,adoQuery1.FieldValues['menu_name'], adoQuery1.GetBookmark);
node1.ImageIndex:=1;
node1.SelectedIndex:=0;
end;
if length(adoquery1.FieldByName('menu_id').AsString)=4 then
begin
aaa:=adoquery1.FieldByName('menu_name&#