Delphi創(chuàng)建可換skins VCL庫(BusinessSkinForm)

一套支持Delphi的VCL庫，幫助你創(chuàng)建可換skins的程序，支持包括窗體、提示、許多標準和數(shù)據(jù)控件。你可以用專用的編輯器創(chuàng)建自己的skins。
1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin各一個到窗體上

2、修改bsBusinessSkinForm的SkinData屬性為bsSkinData1

3、修改bsSkinData1的StoredSkin屬性為bsStoredSkin1

4、修改bsStoredSkin1的filename屬性，指向一個皮膚文件，例如我的55套皮膚包是放在C:\Program Files\Borland\Delphi7\BSF-Skins\Skins文件夾里，我就修改

bsStoredSkin1的filename屬性為C:\Program Files\Borland\Delphi7\BSF-Skins\Skins\Animate\skin.ini

5、在delphi設(shè)計窗口中按下F9

6、爽吧!!!!!

第一步－安裝：

1、雙擊BSFD7.dpk文件，在delphi 7.0中打開

2、單擊compile按鈕，你會發(fā)現(xiàn)原來不可用的install按鈕可以使用了

3、單擊install按鈕，會彈出來一個對話框提示你“安裝成功！”

4、將所有源文件復(fù)制到C:\Program Files\Borland\Delphi7\Lib文件夾中（如delphi安裝路徑不同的話，請各位老兄自行更改）

第二步－最基本的使用方法：

當(dāng)你安裝成功后，你會在delphi的組件面板上發(fā)現(xiàn)三個控件組，它們是：

businessskinform vcl和businessskinform db vcl和businessskinform vcl dialogs,顧名思義，第一個是常用組件，第二個是數(shù)據(jù)庫組件，第三個是對話框組件。

按照下面的步驟，不用寫一行代碼，你可以馬上做出一個有漂亮界面的程序來

1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin（在businessskinform vcl控件組中）各一個到窗體上

2、修改bsBusinessSkinForm的SkinData屬性為bsSkinData1

3、修改bsSkinData1的StoredSkin屬性為bsStoredSkin1

4、修改bsStoredSkin1的filename屬性，指向一個皮膚文件，例如皮膚包是放在C:\Program Files\Borland\Delphi7\BSF-Skins\Skins文件夾里，我就修改

bsStoredSkin1的filename屬性為C:\Program Files\Borland\Delphi7\BSF-Skins\Skins\Animate\skin.ini

5、按下F9鍵運行。

第三步－換膚：

現(xiàn)在的程序流行換膚功能，你是否也想做出一個可以讓使用者換膚的程序來呢？請跟我一步一步來做：

1、請做完第二步中的各個步驟

2、添加三個bsSkinSpeedButton到窗體上，name分別是bsSkinSpeedButton1、bsSkinSpeedButton2、bsSkinSpeedButton3，caption分別是皮膚1、皮膚2、皮膚3

3、添加兩個bsStoredSkin到窗體上，加上上面已添加的一個，共是三個,name分別是bsStoredSkin2、bsStoredSkin3。

4、將這三個bsStoredSkin的filename屬性各指向三個不同的皮膚文件（什么？不知道怎么指？暈！參見第二步中的步驟4�。�

5、添加代碼，如下：

procedure TForm1.bsSkinSpeedButton1Click(Sender: TObject);

begin

bsSkinData1.StoredSkin:=bsStoredSkin1;

end;

procedure TForm1.bsSkinSpeedButton2Click(Sender: TObject);

begin

bsSkinData1.StoredSkin:=bsStoredSkin2;

end;

procedure TForm1.bsSkinSpeedButton3Click(Sender: TObject);

begin

bsSkinData1.StoredSkin:=bsStoredSkin3;

end;

6、按下F9先，分別點三個按鈕試試再！



做主菜單要先加上一個bsSkinMainMenuBar控件，然后加上一個bsSkinMainMenu，把

bsSkinMainMenuBar的MainMenu屬性為bsSkinMainMenu，再把bsBusinessSkinForm的MainMenuBar屬性指為bsSkinMainMenuBar即可！

至于滾動條，需要自己手動加上，然后把它的HScrollBar和VScrollBar屬性指向你所加的滾動條！