编辑器

优化细节
2023-03-20 17:43:54 +08:00
parent 922b9dc022
commit 55f110df48
3 changed files with 17 additions and 12 deletions
@@ -1611,7 +1611,8 @@ type tdirviewer = class(tcustomcontrol)
            fms[i] := mi; 
        end 
        ftree.onrclick :=function(o,e)begin
-            nd := o.CurrentNode;        
+            //nd := o.CurrentNode; 
+            nd := FTree.GetItemByYPos(e.ypos) ;
            if nd then 
            begin
                if (nd.parent = o.rootnode) then  //根目录