有关Delphi皮肤控件使用的问题

Question

hsmserver大哥：
  你好！
  又要请教你问题了，不还意思啊！
  我今天装了BusinessSkinForm控件，想给我已经做好的界面加上皮肤，但是除了form的皮肤换了，其他的都没有变化啊，是不是要把所有的组件，比如button，edit等全都换成BusinessSkinForm里对应的啊，这样似乎很麻烦，有没有更高级一些的办法啊？教教小弟哈，刚学delphi，导师就要我做系统，很吃力啊！谢谢你昨天回答我的问题，谢谢！

Answer 1

如果不用BusinessSkinForm控件，换用VCLSKIN，就可在达到你要的效果了。

Answer 2

它好象有专门的TbsButton或TbsEdit控件吧
如果想省事点，就用VCLSkin

Answer 3

谢谢你！搞定了！csdn上的牛人果然牛啊！我不是学计算机类的，所以编程能力很弱，以后就靠csdn的大侠们了 ！哈哈！

Answer 4

VCLSkin ,SkinPack都是不错的皮肤控件工具,也可以用APPFACE

Answer 5

VCLSkin,使用bs当然要使用里面的组件了，然后把各组件的skindata属性设置一下即可

Answer 6

你最好建立一个baseform然后所有窗口都继承这个窗口，然后在baseform的oncreate事件里写如下代码,这样你就不必每个组件都设置他的SkinData属性
uses
  TypInfo;
procedure TFormBase.FormCreate(Sender: TObject);
var
  int1:Integer;
  PropInfo:PPropInfo;
begin
  //设置皮肤控件
  for int1:=0 to Self.ComponentCount-1 do
  begin
    PropInfo:=GetPropInfo(Self.Components[int1],'SkinData');
    if PropInfo<>nil then
      SetObjectProp(Components[int1],PropInfo,bsSkinData1);
  end;
end;