我只想让vclskin只在form1上生效,而不想在全部的窗体上生效,请问我该怎样做才能够实现呢?

[QQ150900]

请看我的程序

form1窗体上有两个控件skinstore1和sd1即SkinData1

form1.Sd1.LoadFromCollection(form1.skinstore1,0);
sd1.skinformtype:=sfOnlyThisForm;
if not form1.sd1.active then form1.sd1.active:=true;


用上面这段程序不能够实现,请问要该怎样做才能实现呢?

[zqw0117]

把你不想生效的Form的Tag设置成99即可（看帮助啊，里面说 了的，不过好像是99，也许我说的不准，很久没有用VCLSkin了，反正就是更改Tag值就成）。

[flytiger1977]

在SkinData的OnFormSkin加上
if aName<>'Tform1' then
DoSkin:=false;