设计器

整理代码

funcext/tvclib/tslvcl.tsf

@@ -2661,7 +2661,7 @@ type TTreeNode=class(TTreeCtlNode)
     begin
         DeleteChildren();
     end
-    function HandleAllocated();
+    (*function HandleAllocated();
     begin
         {**
         @explan(说明)是否句柄有效%%
@@ -2674,7 +2674,7 @@ type TTreeNode=class(TTreeCtlNode)
         {**
         @explan(说明) 构建句柄 %%
         **}
-    end
+    end *)
     function InsertNode(node,bnode);override;
     begin
         {**
@@ -2874,6 +2874,7 @@ type TTreeView=class(TTreeCtl)
         @explan(说明) 删除 节点,但是节点不会销毁,请用node.recycling 销毁 %% 
         @param(node)(TTreeNode)
         **}
+        return deletenode(node);
         if node is class(TTreeNode)then
         begin
         end else