关于TreeView的基础问题

本人乃DELPHI新手,想请教各位TreeView控件怎样点击一个接点后  
  编写该接点的程序(如弹出Panel,对话框等),感谢! 问题点数：20、回复次数：1Top

1 楼setfocus（斗是懂一点）回复于 2003-06-02 23:34:58 得分 20

方法应该很多！举一个例子：可以在鼠标MouseDown事件里面写这个！  
  这是我写的一个过程，你把需要的地方改一下！调试一下应该没问题！  
  {用户点击树型列表后的反馈信息  
  MyTreeView:列表控件名称；zX,zY:鼠标点击处的坐标；LayerIndex:期待被反馈信息的层；  
  MyQuery:查询反馈的控件名，MySQL:查询反馈的查询语句；RelateField:被关联字段名;  
  }  
  Procedure   TreeList(var   ParentLayerItem:string;MyTreeView:TTreeView;zX,zY,LayerIndex:integer;MyQuery:TADOQuery;MySQL,RelateField:string);  
  var  
  itemnode:TTreeNode;  
  t:integer;  
  begin  
      itemnode:=MyTreeView.GetNodeAt(zX,zY);  
        try  
            itemnode.Selected:=true;  
        except  
              abort;  
              exit;  
        end;  
        if   itemnode.Level   =LayerIndex   then  
            begin  
            DateSelect(MyQuery,MySQL+'   Where   '+RelateField+'='''+itemnode.Text+'''');//写出你想要的数据查询SQL语句  
            ParentLayerItem:=itemnode.Parent.Text;  
            end  
        else  
            begin  
            ParentLayerItem:=ItemNode.Text   ;  
            MyQuery.Close;  
            end;  
        end;  
  把查来的数据直接传递给你打开的也没的相应的edit或者label中!就可以显示某一详细明细！Top

相关问题

• 查询
• 控件
• mysql
• itemnode
• myquery
• layerindex
• parentlayeritem
• relatefield
• mytreeview
• zx

• 帖主：fengliangfl
• setfocus

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载