1、BussinessSkinForm入门教程By 刘家君(qufo)作者：刘家君 工作单位：福建省 泉州鹭燕医药有限公司职务：网络管理员网名：qufoMail:,QQ:18185579可任意转载 自由发布 ，但不要抹去我的名字及修改其中重要内容序 言BussinessSkinForm 是 Almdev 公司(http:/)出品的一套皮肤控件，可以方便地美化程序界面，支持随时更新界面及自定义界面，现已有超过 80 套的皮肤可用。并且可以利用自带的皮肤编辑器生产自定义的皮肤。本文档只提供入门级的教程，使“菜鸟”级的人物可以选学先看。更多的使用方法见其自带的 demo 和帮助，我将把 demo 和本文
2、档打包在一起。第一章：下载安装一、下载此控件在各大 delphi 控件下载站都有，并且是破解+ 中文的。如有可能，请支持正版。(可到 http:/ 定制订单) 。下面我们以在 下载得到的控件为例。二、安装1.下载得到的大部分为压缩文件，用解压缩程序将它解开后可以得到源代码及安装包，如下图注：我已安装 Delphi 8 所以 DPK 的图标跟 delphi 7 中 DPK 图标不一样。2.启动 Delphi 我们以 Delphi 7 为例。然后通过菜单 File - Open Project 导航到压缩得到 BSFD7.dpk 路径，并选择以打开此包，如图：3.点 Compile 按钮，Com
3、pile 完成后 Install 按钮变得可点。点击 Install 按钮即可把控件包安装到 delphi 的 IDE 中。4.通过 Tools - Environment Options 可打开 Environment Options 窗口选择其中的 library:点 library path 后的按钮，再按 Greyed items denote invalid path 后的 定位到 BSF7.dpk 所在文件夹，返回到点 Add 按钮，关闭直至退回到 Delphi 7 主界面中。至此，安装过程完毕。参考图（可拉大图形以观察仔细）为使我们有更多的皮肤可用，可以到 http:/ 下载 5
4、5套皮肤，网上也有更多的皮肤可用，直接下载后解压缩便可使用。第二章：建立一个 BSF 的 Form 并测试换肤我们已经把 BSF 安装好了，下面我们做个简单的窗体测试一下。1. 新建一个工程。保存在 C:BSF 下，工程名为 demo12. 把下载的皮肤解压缩后放在 C:BSFSkins 里面，以便使用。我这有 80 套，网上还有更多。如下图3. 在默认产生的 Form 上放上 bsBusinessSkinForm、bsSkinData、bsStoredSkin ，然后设置 bsStoredSkin 的 Filename，导航到 C:BSFSkins下的任一文件夹skini.in ，本例为C:
5、BSFSkinscorona!skin.ini 为例，再设置 bsSkinData 的 StoredSkin 为刚才的 bsStoredSkin，再设置 bsBussinessSkinForm 的 SkinData 为 bsSkinData。窗体如下：保存工程，按 F9 运行。看看是不是变成这样了：此方法使用的是 StoredSkin。再来一个动态改变 skin 的。在刚才的 Form1 中放入 bsSkinOpenDialog、bsSkinMessage 和 bsSkinButton 并设置三控件的 skindata 为 bsSkinData（刚才的 bsSkinData）bsSkinBut
6、ton1 的 caption 设为”选择皮肤” ，双击此按钮，写如下程序:procedure TForm1.bsSkinButton1Click(Sender: TObject);beginif bsSkinOpenDialog1.Execute thenbeginbsSkinData1.LoadFromFile( bsSkinOpenDialog1.FileName);bsSkinMessage1.MessageDlg(更换皮肤成功,(mtinformation),mbOK,0);endelsebsSkinMessage1.MessageDlg(为什么不换呀？,(mtError),mbOK,
7、0);end;运行此程序，点“选择皮肤“等等，那个确定按钮怎么那么别扭呀，好象没蒙上皮肤呀。下面告诉你。刚刚我们发现那个 bsSkinMessage 里的确定好象并没有蒙上皮肤，原来是 bsSkinMessage 里的 CtrlSkinData 也要设置成 bsSkinData，再试，好了。完成建立一个可自由换肤的 Form 的演示。像不像 MAC ? Apple？ 第三章：BSF 的 Menu现在我们在 Form 中放入一个 bsSkinMainMenuBar，再放入一个 delphi 自己的 MainMenu，双击 MainMenu，输入一些菜单（我比较懒）运行一下。菜单呢，到哪去了？把 bsSkinMainMenuBar 中三项红色的属性 (SkinData=bsSkinData,MainMenu=MainMenu1, BusinessSkinForm=bsBusinessSkinForm1)设置一下，再运行，好，现在有了。在使用 bsSkinMainMenuBar 时一定要记得三项属性全部设置好，否则可能出现没菜单或菜单项不弹出等尴尬事件。
