界面库

优化
2023-03-10 16:56:41 +08:00
parent 5d19805db7
commit 946df3c42b
3 changed files with 5 additions and 4 deletions
@@ -1542,10 +1542,10 @@ type TcustomTreeCtl = class(ttreelistwnd)
                    if FonEmptyNodeExapanding then 
                    begin 
                        e := new TTreeSelCHngedEvent(0,0,0,0);
-                        e.item := item;
-                        e.ItemNew := item;
-                        e.ItemOld := item;
-                        calldatafunction(FonEmptyNodeExapanding,pm,e);
+                        e.item := pm;
+                        e.ItemNew := pm;
+                        e.ItemOld := pm;
+                        CallMessgeFunction(FonEmptyNodeExapanding,self(true),e);
                    end 
                end 
                return ;