Delphi BusinessSkinForm使用说明
<p>1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin各一个到窗体上</p><p>2、修改bsBusinessSkinForm的SkinData属性为bsSkinData1</p>
<p>3、修改bsSkinData1的StoredSkin属性为bsStoredSkin1</p>
<p>4、修改bsStoredSkin1的filename属性，指向一个皮肤文件，例如我的55套皮肤包是放在C:\Program Files\Borland\Delphi7\BSF-Skins\Skins文件夹里，我就修改</p>
<p>bsStoredSkin1的filename属性为C:\Program Files\Borland\Delphi7\BSF-Skins\Skins\Animate\skin.ini</p>
<p>5、在delphi设计窗口中按下F9</p>
<p>6、爽吧!!!!!</p>
<p>第一步－安装：</p>
<p>1、双击BSFD7.dpk文件，在delphi 7.0中打开</p>
<p>2、单击compile按钮，你会发现原来不可用的install按钮可以使用了</p>
<p>3、单击install按钮，会弹出来一个对话框提示你“安装成功！”</p>
<p>4、将所有源文件复制到C:\Program Files\Borland\Delphi7\Lib文件夹中（如delphi安装路径不同的话，请各位老兄自行更改）</p>
<p>第二步－最基本的使用方法：</p>
<p>当你安装成功后，你会在delphi的组件面板上发现三个控件组，它们是：</p>
<p>businessskinform vcl和businessskinform db vcl和businessskinform vcl dialogs,顾名思义，第一个是常用组件，第二个是数据库组件，第三个是对话框组件。</p>
<p>按照下面的步骤，不用写一行代码，你可以马上做出一个有漂亮界面的程序来</p>
<p>1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin（在businessskinform vcl控件组中）各一个到窗体上</p>
<p>2、修改bsBusinessSkinForm的SkinData属性为bsSkinData1</p>
<p>3、修改bsSkinData1的StoredSkin属性为bsStoredSkin1</p>
<p>4、修改bsStoredSkin1的filename属性，指向一个皮肤文件，例如皮肤包是放在C:\Program Files\Borland\Delphi7\BSF-Skins\Skins文件夹里，我就修改</p>
<p>bsStoredSkin1的filename属性为C:\Program Files\Borland\Delphi7\BSF-Skins\Skins\Animate\skin.ini</p>
<p>5、按下F9键运行。</p>
<p>第三步－换肤：</p>
<p>现在的程序流行换肤功能，你是否也想做出一个可以让使用者换肤的程序来呢？请跟我一步一步来做：</p>
<p>1、请做完第二步中的各个步骤</p>
<p>2、添加三个bsSkinSpeedButton到窗体上，name分别是bsSkinSpeedButton1、bsSkinSpeedButton2、bsSkinSpeedButton3，caption分别是皮肤1、皮肤2、皮肤3</p>
<p>3、添加两个bsStoredSkin到窗体上，加上上面已添加的一个，共是三个,name分别是bsStoredSkin2、bsStoredSkin3。</p>
<p>4、将这三个bsStoredSkin的filename属性各指向三个不同的皮肤文件（什么？不知道怎么指？晕！参见第二步中的步骤4！）</p>
<p>5、添加代码，如下：</p>
<p>procedure TForm1.bsSkinSpeedButton1Click(Sender: TObject);</p>
<p>begin</p>
<p>bsSkinData1.StoredSkin:=bsStoredSkin1;</p>
<p>end;</p>
<p>procedure TForm1.bsSkinSpeedButton2Click(Sender: TObject);</p>
<p>begin</p>
<p>bsSkinData1.StoredSkin:=bsStoredSkin2;</p>
<p>end;</p>
<p>procedure TForm1.bsSkinSpeedButton3Click(Sender: TObject);</p>
<p>begin</p>
<p>bsSkinData1.StoredSkin:=bsStoredSkin3;</p>
<p>end;</p>
<p>6、按下F9先，分别点三个按钮试试再！</p>
<p> </p>
<p>做主菜单要先加上一个bsSkinMainMenuBar控件，然后加上一个bsSkinMainMenu，把</p>
<p>bsSkinMainMenuBar的MainMenu属性为bsSkinMainMenu，再把bsBusinessSkinForm的MainMenuBar属性指为bsSkinMainMenuBar即可！</p>
<p>至于滚动条，需要自己手动加上，然后把它的HScrollBar和VScrollBar属性指向你所加的滚动条！</p>
<p> </p><br><br>
来源：https://www.cnblogs.com/yerongtian/p/11112851.html
頁:
[1]