摘要：procedure TForm1.TreeView1Click(Sender: TObject); var aPoint: TPoint; aNode: TTreeNode; aHitTest: THitTests; begin if GetCursorPos(aPoint) then begin 阅读全文

摘要：主要是要读取数据库的信息，而delphi界面是一个树形结构。 例如有一个Ascess数据库：示例.MDB，内有一张表：“国家”，表的内容如下： 编号 名称 01 中国 0101 吉林省 010101 长春市 010102 吉林市 0102 江苏省 010201 南京市 010202 常州市 02 美 阅读全文

摘要：有时我们需要保存和重建treeview控件，本文提供一种方法，通过以树结构节点的编号访问树结构，该控件主要提供的方法如下： function GetGlobeNumCode(inNode:TTreeNode):String; 功能：返回当前节点的编号，编号规则见源码内说明。 function Loc 阅读全文

摘要：Delphi TreeView遍历所有节点问题遍历出TREEVIEW的所有完整的节点名称请出能实现这个功能的有效代码 procedure aa(s:string;aItem:TTreeNode); var node:TTreeNode; str:string; begin node:=aItem; 阅读全文

摘要：我的数据库结构如下：UnitId UnitName01 中国 （根节点）0101 河北省（二级树）010101 河北省沧州市（三级树）01010101 河北省沧州市沧县（四级树）0102 北京市（二级树）010201 北京市海淀区（三级树）01020101 北京市海淀区唐家岭村（四级树）010201 阅读全文

摘要：procedure TUIOperate.FillTree(treeview: TTreeView); var findq: TADOQuery; node: TTreeNode; //这个方法是根据记录的id字段值，查找TreeView上的父节点 function FindParentNode(i 阅读全文

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, St 阅读全文

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, St 阅读全文