Update utslvcldesigner.tsf

优化范例打开
2023-10-10 16:34:00 +08:00 · 2023-10-10 16:34:00 +08:00 · ffdd500012
parent da4005a119
commit ffdd500012
1 changed files with 2 additions and 1 deletions
--- a/designer/utslvcldesigner.tsf
+++ b/designer/utslvcldesigner.tsf
@ -373,7 +373,8 @@ type TVclDesigner = class(tvcform)
                    end 
                    else 
                    begin 
-                        FProjectFileOpener.initialDir := f[1:(i-1)];
+                        return messageboxa("examples not exists!","ÌáÊ¾",0,self);
+                        //FProjectFileOpener.initialDir := f[1:(i-1)];
                    end 
                    break;
                end