機構設置及編碼功能的實現（四）[1]

    ——此文章摘自《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>]  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24901.html