界面库

小修改
2022-10-10 09:45:33 +08:00
parent 9f6742851d
commit 25cc144bb7
1 changed files with 4 additions and 2 deletions
@@ -485,8 +485,8 @@ type TcustomTreeCtlNode = class(TVirtualListItem)
            if self=Owner.RootNode then
            begin
                while ItemCount>0 DO
-                begin
-                    DeleteChildNode(FItems[0]);
+                begin                    
+                    DeleteNodeByIndex(0);//DeleteChildNode(FItems[0]);
                end
                r := false;
            end
@@ -1862,7 +1862,9 @@ type TcustomTreeCtl = class(TVirtualList)
    begin
        if FRootItem then
        begin
+            flockchangedcall := true;
            FRootItem.DeleteChildren();
+            flockchangedcall := false;
        end
    end
    property CurrentNode read FCurrentNode;