| 
 | 
 
 
发表于 2020-12-9 21:15:01
|
显示全部楼层
 
 
 
if frm <> nil then 
          begin 
            LockWindowUpdate(Panel_Client.Handle); 
            try 
 
              frm.Hint := ACaption; 
              frm.BorderStyle := bsNone; 
              frm.Visible := false; 
              frm.Parent := Panel_Client; 
              frm.Align := alClient; 
              frm.Visible := true; 
              skindata1.AddNestForm(Self, frm); 
              skindata1.UpdateSkinControl(self); 
              frm.SetFocus; 
            except; 
 
            end; 
            LockWindowUpdate(0); 
          end; 
 
      end; |   
 
 
 
 |