换皮肤

Question

我用的是BusinessSkinForm皮肤控件，也下了好多的skin.想像别的程序一样换皮肤，就是把bsCompressedStoredSkin1.filename改为另一个skin.ini就可实现换皮肤的功能,然后在combobox1.items写皮肤的名称。在事件combobox1的change事件写代码，写了好多次，都是报错，不知道怎么写代码。希望名望兄弟帮帮忙！！ 

Answer 1

http://community.csdn.net/Expert/TopicView3.asp?id=5260782
一个人？？？？放n个TbsCompressedStoredSkin 每个选择相应的skin.ini，
procedure TForm1.bsSkinComboBox1Change(Sender: TObject);
begin
case self.bsSkinComboBox1.ItemIndex of
0: bsSkinData1.CompressedStoredSkin := Mosphere;
1: bsSkinData1.CompressedStoredSkin := SymbiOS;
2: bsSkinData1.CompressedStoredSkin := Kromo;
3: bsSkinData1.CompressedStoredSkin := Corona;
4: bsSkinData1.CompressedStoredSkin := WinXPSteel;
end;
end;