From 25cc144bb7f8c976f508cdc12e39bc3e8e201e2a Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Mon, 10 Oct 2022 09:45:33 +0800
Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

小修改
---
 funcext/tvclib/utslvcltree.tsf | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/funcext/tvclib/utslvcltree.tsf b/funcext/tvclib/utslvcltree.tsf
index eeee9cd..f9d8393 100644
--- a/funcext/tvclib/utslvcltree.tsf
+++ b/funcext/tvclib/utslvcltree.tsf
@@ -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;