BussinessSkinForm 入門教程

BussinessSkinForm

入門教程

By 劉家君(qufo)

做者：劉家君

工做單位：福建省 泉州鷺燕醫藥有限公司 職務：網絡管理員

網名：qufo

Mail:qufo@tom.com,qufo@163.com QQ:18185579

可任意轉載 自由發佈 ，但不要抹去個人名字及修改其中重要內容

序 言

 

BussinessSkinForm是Almdev公司(http://www.almdev.com)出品的一套皮膚控件，能夠方便地美化程序界面，支持隨時更新界面及自定義界面，現已有超過80套的皮膚可用。而且能夠利用自帶的皮膚編輯器生產自定義的皮膚。

本文檔只提供入門級的教程，使「菜鳥」級的人物能夠選學先看。更多的使用方法見其自帶的demo和幫助，我將把demo和本文檔打包在一塊兒。

第一章：下載安裝

1、下載

此控件在各大delphi控件下載站都有，而且是破解+中文的。若有可能，請支持正版。(可到http://www.almdev.com定製訂單)。

下面咱們以在 www.2ccc.com 下載獲得的控件爲例。

 

 

2、安裝

1.下載獲得的大部分爲壓縮文件，用解壓縮程序將它解開後能夠獲得源代碼及安裝包， 以下圖

 

 

注：我已安裝Delphi 8 因此 DPK 的圖標跟delphi 7中 DPK圖標不同。 2.啓動 Delphi 咱們以 Delphi 7 爲例。

 

而後經過菜單 File -> Open Project 導航到壓縮獲得 BSFD7.dpk 路徑，並選擇以打開此包，如圖：

 

3.點Compile 按鈕，Compile 完成後Install 按鈕變得可點。

點擊 Install 按鈕便可把控件包安裝到delphi的IDE中。

4.經過 Tools -> Environment Options 可打開Environment Options窗口 選擇其中的library:

 

點 library path 後的…按鈕，

 

 

 

 

再按Greyed items denote invalid path後的 …

 

定位到BSF7.dpk所在文件夾，返回到點Add按鈕，關閉直至退回到 Delphi 7主界面中。 至此，安裝過程完畢。參考圖（可拉大圖形以觀察仔細）

 

爲使咱們有更多的皮膚可用，能夠到 http://www.2ccc.com/article.asp?articleid=299 下載55套皮膚，網上也有更多的皮膚可用，直接下載後解壓縮即可使用。

 

第二章：創建一個BSF的Form 並測試換膚

 

 

咱們已經把BSF安裝好了，下面咱們作個簡單的窗體測試一下。 1. 新建一個工程。保存在 C:\\BSF下，工程名爲demo1

2. 把下載的皮膚解壓縮後放在 C:\\BSF\\Skins裏面，以便使用。我這有80套，網上還有更

多。以下圖

 

3. 在默認產生的 Form 上放上bsBusinessSkinForm、bsSkinData、bsStoredSkin，而後設置

bsStoredSkin的Filename，導航到C:\\BSF\\Skins\\下的任一文件夾\\skini.in，本例爲C:\\BSF\\Skins\\corona!\\skin.ini爲例，再設置bsSkinData的StoredSkin爲剛纔的

bsStoredSkin，再設置 bsBussinessSkinForm的SkinData爲bsSkinData。窗體以下：

 

保存工程，按F9運行。看看是否是變成這樣了：

 

此方法使用的是 StoredSkin。

再來一個動態改變skin的。

在剛纔的Form1中放入 bsSkinOpenDialog、bsSkinMessage和bsSkinButton並設置三控件的 skindata爲bsSkinData（剛纔的bsSkinData）bsSkinButton1的caption設爲」選擇皮膚」，雙擊此按鈕，寫以下程序:

procedure TForm1.bsSkinButton1Click(Sender: TObject);

begin

if bsSkinOpenDialog1.Execute then begin

bsSkinData1.LoadFromFile( bsSkinOpenDialog1.FileName);

bsSkinMessage1.MessageDlg('更換皮膚成功',(mtinformation),[mbOK],0); end

else

bsSkinMessage1.MessageDlg('爲何不換呀？',(mtError),[mbOK],0);

end;

運行此程序，點「選擇皮膚「

 

 

 

 

等等，那個肯定按鈕怎麼那麼彆扭呀，好象沒蒙上皮膚呀。下面告訴你。

 

剛剛咱們發現那個bsSkinMessage裏的肯定好象並無蒙上皮膚，原來是bsSkinMessage裏的 CtrlSkinData也要設置成bsSkinData，再試，好了。

 

完成創建一個可自由換膚的 Form的演示。

 

像不像MAC ? Apple？ ?

第三章：BSF的Menu

 

 

如今咱們在Form中放入一個 bsSkinMainMenuBar，再放入一個delphi本身的MainMenu，雙擊MainMenu，輸入一些菜單（我比較懶?）

 

運行一下。

 

菜單呢，到哪去了？

把bsSkinMainMenuBar 中三項紅色的屬性(SkinData=bsSkinData,MainMenu=MainMenu1, BusinessSkinForm=bsBusinessSkinForm1)設置一下，再運行，好，如今有了。

 

在使用bsSkinMainMenuBar時必定要記得三項屬性所有設置好，不然可能出現沒菜單或菜單項不彈出等尷尬事件。