日韩成人在线观看 I 激情春色网 I 一区二区免费在线观看 I 欧美群妇大交群 I 2017天天干天天射 I 综合久久狠狠色成人网 I 欧美日韩一区二区三区四区在线观看 I 污免费网站 I 国产精品无码2021在线观看 I 女人一级一片30分 I 欧美三级图片 I a免费在线 I 国产偷v国产偷∨精品视频 I 91小视频在线观看 I 欧美日韩你懂的 I 一级片黄色 I 在线观看91精品视频 I 男人添女荫道口女人有什么感觉 I 都市激情 亚洲 I 无套内谢少妇毛片 I 欧美国产中文在线字幕视频 I 欧美视频一区二区三区不卡3p I 精品国精品无码自拍自在线 I 人人爽人人澡 I 日本免费大黄在线观看 I 日本成熟视频免费视频 I 97se亚洲精品一区二区 I 午夜夜伦鲁鲁片免费无码 I 可以在线播放的av I 国产精品99久久久久久久久久 I 夜夜草导航 I 国产精品电影一区二区 I 手机在线电影 一区 I 黄色重口网站 I 一区二区乱码

一套支持Delphi的VCL庫，幫助你創建可換skins的程序，支持包括窗體、提示、許多標準和數據控件。你可以用專用的編輯器創建自己的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設計窗口中按下F9

6、爽吧!!!!!

第一步－安裝：

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

2、單擊compile按鈕，你會發現原來不可用的install按鈕可以使用了

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

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

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

當你安裝成功后，你會在delphi的組件面板上發現三個控件組，它們是：

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

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

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鍵運行。

第三步－換膚：

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

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屬性指向你所加的滾動條！

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