Delphi用BusinessSkinForm 做界面皮肤的使用说明.doc

上传人:本田雅阁 文档编号:2370092 上传时间:2019-03-24 格式:DOC 页数:3 大小:28.51KB
返回 下载 相关 举报
Delphi用BusinessSkinForm 做界面皮肤的使用说明.doc_第1页
第1页 / 共3页
Delphi用BusinessSkinForm 做界面皮肤的使用说明.doc_第2页
第2页 / 共3页
Delphi用BusinessSkinForm 做界面皮肤的使用说明.doc_第3页
第3页 / 共3页
亲,该文档总共3页,全部预览完了,如果喜欢就下载吧!
资源描述

《Delphi用BusinessSkinForm 做界面皮肤的使用说明.doc》由会员分享,可在线阅读,更多相关《Delphi用BusinessSkinForm 做界面皮肤的使用说明.doc(3页珍藏版)》请在三一文库上搜索。

1、Delphi用BusinessSkinForm 做界面皮肤的使用说明注意:新版的Delphi 已经用bsCompressedStoredSkin 代替了bsStoredSkin 1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin(bsCompressedStoredSkin)各一个到窗体上2、修改bsBusinessSkinForm的SkinData属性为bsSkinData13、修改bsSkinData1的StoredSkin属性为bsStoredSkin14、修改bsStoredSkin1的filename属性,指向一个皮肤文件,例如我的55套皮肤

2、包是放在C:Program FilesBorlandDelphi7BSF-SkinsSkins文件夹里,我就修改bsStoredSkin1的filename属性为C:Program FilesBorlandDelphi7BSF-SkinsSkinsAnimateskin.ini5、在delphi设计窗口中按下F96、爽吧!第一步安装:1、双击BSFD7.dpk文件,在delphi 7.0中打开2、单击compile按钮,你会发现原来不可用的install按钮可以使用了3、单击install按钮,会弹出来一个对话框提示你“安装成功!”4、将所有源文件复制到C:Program FilesBorla

3、ndDelphi7Lib文件夹中(如delphi安装路径不同的话,请各位老兄自行更改)第二步最基本的使用方法:当你安装成功后,你会在delphi的组件面板上发现三个控件组,它们是:businessskinform vcl和businessskinform db vcl和businessskinform vcl dialogs,顾名思义,第一个是常用组件,第二个是数据库组件,第三个是对话框组件。按照下面的步骤,不用写一行代码,你可以马上做出一个有漂亮界面的程序来1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin(在businessskinform vcl

4、控件组中)各一个到窗体上2、修改bsBusinessSkinForm的SkinData属性为bsSkinData13、修改bsSkinData1的StoredSkin属性为bsStoredSkin14、修改bsStoredSkin1的filename属性,指向一个皮肤文件,例如皮肤包是放在C:Program FilesBorlandDelphi7BSF-SkinsSkins文件夹里,我就修改bsStoredSkin1的filename属性为C:Program FilesBorlandDelphi7BSF-SkinsSkinsAnimateskin.ini5、按下F9键运行。第三步换肤:现在的程

5、序流行换肤功能,你是否也想做出一个可以让使用者换肤的程序来呢?请跟我一步一步来做:1、请做完第二步中的各个步骤2、添加三个bsSkinSpeedButton到窗体上,name分别是bsSkinSpeedButton1、bsSkinSpeedButton2、bsSkinSpeedButton3,caption分别是皮肤1、皮肤2、皮肤33、添加两个bsStoredSkin到窗体上,加上上面已添加的一个,共是三个,name分别是bsStoredSkin2、bsStoredSkin3。4、将这三个bsStoredSkin的filename属性各指向三个不同的皮肤文件(什么?不知道怎么指?晕!参见第二

6、步中的步骤4!)5、添加代码,如下:procedure TForm1.bsSkinSpeedButton1Click(Sender: TObject);beginbsSkinData1.StoredSkin:=bsStoredSkin1;end;procedure TForm1.bsSkinSpeedButton2Click(Sender: TObject);beginbsSkinData1.StoredSkin:=bsStoredSkin2;end;procedure TForm1.bsSkinSpeedButton3Click(Sender: TObject);beginbsSkinData1.StoredSkin:=bsStoredSkin3;end;6、按下F9先,分别点三个按钮试试再! 做主菜单要先加上一个bsSkinMainMenuBar控件,然后加上一个bsSkinMainMenu,把bsSkinMainMenuBar的MainMenu属性为bsSkinMainMenu,再把bsBusinessSkinForm的MainMenuBar属性指为bsSkinMainMenuBar即可!至于滚动条,需要自己手动加上,然后把它的HScrollBar和VScrollBar属性指向你所加的滚动条!

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 其他


经营许可证编号:宁ICP备18001539号-1