界面库

popupmenu 以及coolbar

designer/tslvcldesigner.tsf

@@ -1685,11 +1685,12 @@ type TVclDesigner = class(tvcform)
                     v[0].SetComponentProperties(v[1],va.GetTrueComponent());
                 end 
             end 
+            
         except 
         end ;
         FTree.Loading := nil;
     end 
-    function loadtfmtotree(p,d,node,owner,prs,obarray);
+    function loadtfmtotree(p,d,node,wr,prs,obarray);
     begin
     {**
         @explan(说明) 导入tfm文件 %%
@@ -1712,7 +1713,7 @@ type TVclDesigner = class(tvcform)
             it.Imgs := FImageList.GetImageId("tdcreateform");
             FLoadInheritedName := array();
         end 
-        comp := it.ComponentCreater(node,owner);
+        comp := it.ComponentCreater(node,wr);
         comp.name := d["name"];
         obarray[d["name"]] := comp;
         FVariableSelecter.additem(comp);