Update utslvcldesigner.tsf

优化范例打开
2023-10-10 16:34:00 +08:00
parent da4005a119
commit ffdd500012
1 changed files with 2 additions and 1 deletions
@@ -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