Delphi 打开子窗体皮肤问题

Question

  if assigned(self.ActiveForm) then self.ActiveForm.Free;
  aform:= aformClass.Create(owner);
  //aform.BorderStyle := bsNone;  aform.Parent:= self.Panel1;
  aform.Top:=0;
  aform.Left:=0;
  aform.Show;
  aform.SetFocus;
  self.ActiveForm:= aform;打开后皮肤无效了？怎么回事 ？

Answer 1

如果是vclskin，自己看看帮助，上面对很多种情况写的很清楚

Answer 2

谢谢看了下知道怎么弄了、但是还有个问题。如果在容器里面的窗体没有去掉边框它就不能使用。这是怎么回事？
//aform.BorderStyle := bsNone;
就这是个。

Answer 3

SkinData1.UpdateSkinControl(self,aform);

Answer 4

谢谢。我找到了另外一个方法。
if skindata1.active then
      skindata1.AddNestForm(self,aform);
    aform.Visible := True;
，现在问题是窗体问题了。  if assigned(self.ActiveForm) then self.ActiveForm.Free;
  aform:= aformClass.Create(owner);
  Windows.SetParent(aform.Handle,self.Panel1.Handle);
  aform.Top:=0;
  aform.Left:=0;
  aform.Show;  self.ActiveForm:= aform;   if skindata1.active then
      skindata1.AddNestForm(self,aform);
    aform.Visible := True;    aform.SetFocus;它无法在panel里面显示而是比panel还大出很多。