tsl

更新动态库

funcext/tvclib/tslvcl.tsf

@@ -5797,7 +5797,7 @@ type Ttfm2Component = class(TTmfParser)
             if cn="tdcreateform" or cn="tdcreatepanel" then return ;
             if hastfmfile(phs,cn) then 
             begin
-                Loadtfmtoform(o2,phs,cn);
+                Loadtfmtoform(o,phs,cn); //从 o2 改为o
                 return ;
             end 
             ic := ci["inherited"][0];

funcext/tvclib/utslvclpage.tsf

@@ -653,6 +653,14 @@ type tcustompagecontrol = class(TCustomControl)
             pg := FTabItems[i].PageSheet;
             if not pg then continue;
             pg.Align := alNone;
+            if (pg is class(TWinControl)) and pg.WsPopUp then
+            begin
+                if i=FCurrentid  then 
+                begin
+                    pg.show();
+                end 
+                continue;
+            end 
             if i=FCurrentid then
             begin
                 pg.Visible := true;