在线看免费视频的网站-在线看免费视频-在线看免费涩涩视频网-在线看免费毛片-久久这里只有精品1-久久这里只有

一套支持Delphi的VCL庫，幫助你創(chuàng)建可換skins的程序，支持包括窗體、提示、許多標(biāo)準(zhǔn)和數(shù)據(jù)控件。你可以用專用的編輯器創(chuàng)建自己的skins。

1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin各一個(gè)到窗體上

2、修改bsBusinessSkinForm的SkinData屬性為bsSkinData1

3、修改bsSkinData1的StoredSkin屬性為bsStoredSkin1

4、修改bsStoredSkin1的filename屬性，指向一個(gè)皮膚文件，例如我的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è)計(jì)窗口中按下F9

6、爽吧!!!!!

第一步－安裝：

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

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

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

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

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

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

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

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

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

2、修改bsBusinessSkinForm的SkinData屬性為bsSkinData1

3、修改bsSkinData1的StoredSkin屬性為bsStoredSkin1

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

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

5、按下F9鍵運(yùn)行。

第三步－換膚：

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

1、請做完第二步中的各個(gè)步驟

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

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

4、將這三個(gè)bsStoredSkin的filename屬性各指向三個(gè)不同的皮膚文件（什么？不知道怎么指？暈！參見第二步中的步驟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先，分別點(diǎn)三個(gè)按鈕試試再！

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

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

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

• ·Delphi創(chuàng)建可換skins VCL庫(BusinessSkinForm)v7.50 完整版