|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>> 为实现在选取Treeview控件中某个节点时在右边文本框中显示它的相应数据应为Treeview的onClick事件添加如下代码 //显示选中的某个节点的全部信息 procedure TmainTreeViewClick(Sender: TObject); var temp:integer; pnode:TTreeNode; begin //显示当前所选取的节点的名称也就是单位名 editText:=treeviewSelectedText; //显示当前选取节点的父节点的名称也就是上级单位名 //如果当前选取的时节点时第一个主节点则直接显示省医药集团 if treeviewSelectedParentIndex<> then editText:=treeviewSelectedParentText else editText:=省医药集团; //显示选中的节点的级号和编号 editText:=mytable[treeviewSelectedAbsoluteIndex+]; temp:=length(editText); temp:=round(temp/); editText:=inttostr(temp); //index是指某单元在该级别中的序号而absolute则是在整个树中的绝对序号 //将储存在字符串数组中的与当前节点相对应的信息提取出来显示在窗体上 if treeviewSelectedParentindex<> then editText:=mytable[treeviewSelectedParentAbsoluteIndex+] else editText:=; //允许对某个所选取的节点进行删除修改名称增加子节点等功能 buttonEnabled:=true; buttonEnabled:=true; buttonEnabled:=true; buttonEnabled:=true; end; 这样在用鼠标单击树结构图中某一个节点的时候右边的文本框中就可以自动显示出该节点所对应的数据中的单位名称单位编号上级单位名称和上级单位编号效果如前面的图所示 |
