|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 为实现树形图中的增加一个子节点删除节点修改当前节点名称等功能还需要分别双击【增加一个子节点】按钮【删除当前节点】按钮【修改节点名称】【增加为同级节点】按钮为他们分别添加下面的代码 //增加一个子节点 procedure TmainButtonClick(Sender: TObject); //在当前节点下增加一个子节点 var pnode:TTreeNode; begin pnode:=treeviewSelected; //pnode相当于一个指针它指向当前用户所选取的节点 treeviewItemsAddChild(pnodepnodeText); //用这个命令为当前节点增加一个子节点 buttonEnabled:=true; //允许保存所作的设置 //发送消息提示用户保存 MessageBox(请保存所作的修改程序将自动为新节点重新编码提示MB_OK); end; //删除当前节点 procedure TmainButtonClick(Sender: TObject); //删除当前节点 begin treeviewSelectedDelete; buttonEnabled:=true; //删除当前所选取的节点并允许保存所做的设置 //发送消息提示用户保存 MessageBox(请保存所作的修改程序将自动为新节点重新编码提示MB_OK); end; //修改当前节点名称 procedure TmainButtonClick(Sender: TObject); //修改当前所选取的节点名称 begin treeviewSelectedText:=editText; buttonEnabled:=true; //用户从第一个编辑框中修改当前节点名称并提交修改 //允许保存所做的设置 end; //增加为同级节点 procedure TmainButtonClick(Sender: TObject); var pnode:TTreeNode; begin //指向选中节点的父节点 pnode:=treeviewSelectedParent; if pnode=nil then MessageBox(不允许为本级节点添加同级节点操作被取消注意!MB_OK) else //在父节点上添加子节点相当与添加同类节点 begin treeviewItemsAddChild(pnodepnodeText); buttonEnabled:=true; //允许保存所作的设置 //发送消息提示用户保存 right>[] [http://developcsaicn/delphi/htm>] |
