欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

Delphi BusinessSkinForm使用说明

程序员文章站 2022-03-10 12:48:06
1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin各一个到窗体上 2、修改bsBusinessSkinForm的SkinData属性为bsSkinData1 3、修改bsSkinData1的StoredSkin属性为bsStoredSkin1 4、修改bsS ......

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