diff --git a/funcext/tvclib/utslvcltree.tsf b/funcext/tvclib/utslvcltree.tsf
index 6df510a..c98dcfe 100644
--- a/funcext/tvclib/utslvcltree.tsf
+++ b/funcext/tvclib/utslvcltree.tsf
@@ -1099,7 +1099,7 @@ type TcustomTreeCtlNode = class(tsluibase) //
             it.Parent := self(true);
             FCurrentAddNode := nil;
             it.UpDateHierarchy();
-            if Expanded and Owner.NodeInList(self)then
+            if Expanded and Owner.NodeInList(self) and it.Visible then //处理节点visibe 的问题
             begin
                 preItem := FItems[idx-1];
                 bx := 0;