Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:组件使用    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  BusinessSkinForm使用  
 
BusinessSkinForm使用

转自http://www.delphibbs.com/keylife/iblog_show.asp?xid=18907

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属性指向你所加的滚动条!

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站