懒猫窝窝

一. DELPHI的主菜单: Project   -> Modify Skin Options ,弹出Project Skin Options Editor 对话框, 从中选择Enable skin Support ,从下面的列表中,只选择: UserSkin这一项,其它的取消选择,点OK退出.   (注意:此步骤需DEV40以上版本才有效)

二. 从Dev Express 项下选择dxSkinController控件,添加到工程,设置dxSkinController1的SkinName属性设为:UserSkin ;

三.  代码:  

   str:='Office2007Black.skinres'; //此处请各位自行修改,可以下载上面的皮肤资源后,
                                   //遍历所有的皮肤资源文件.
   dxSkinsUserSkinLoadFromFile(Trim(ExtractFilePath(Application.ExeName)) + '\skin\' + str);
   dxSkinController1.NativeStyle:=False;
   dxSkinController1.UseSkins:=True;