+ -
当前位置:首页 → 问答吧 → VclSkin 在TPageControl 无皮肤问题

VclSkin 在TPageControl 无皮肤问题

时间:2011-09-01

来源:互联网

我用TSkinData 做界面皮肤 在TPageControl 里NEW page 出来有皮肤的。但是自己动态加TTabSheet 就没皮肤了

我用Spy++ 看窗口类名 
NEW page 出来的是 TTabSheet 类名

自己动态生成出来的是 TForm2 类名

生成代码如下

procedure TForm1.btn2Click(Sender: TObject);
var
tab :TTabSheet;
wnd :TForm2;
begin
  tab := TTabSheet.Create(pgc1);
  tab.PageControl :=pgc1;
  tab.Caption := '客户';

  wnd := TForm2.Create(Self);
  wnd.Align := alClient;
  wnd.ParentWindow := tab.Handle;
  wnd.Visible := true;

end;

作者: kuty77   发布时间: 2011-09-01

哈哈,, 和我們公司的做法一樣哦, ,
我們公司做的是沒有皮膚的,鉭我學習時加上了,
我的做法是在PageControl上面加一个PANNEL控件,并设置其皮肤
然后当加载第一页时调用PageControl。BringToFront进行显示控制,,,

作者: case5166   发布时间: 2011-09-01

,,,不过我这边动态加上的也显示了皮皮,,,,,

作者: case5166   发布时间: 2011-09-01

刷新一下:
SkinData1.UpdateSkinControl(self);

作者: sz_haitao   发布时间: 2011-09-01

引用 3 楼 sz_haitao 的回复:

刷新一下:
SkinData1.UpdateSkinControl(self);


无效哦。。。。。还是没有皮肤

作者: kuty77   发布时间: 2011-09-01

热门下载

更多