DevExpress皮肤引用的办法

xiaoxiao2021-03-01  13

procedure TFrmMain.SetSkin(skinnam:string);   var   Hinst:THANDLE;   RStream:TResourceStream;   begin   Hinst:=Loadlibrary('ALLSK.dll');   If Hinst=0 Then   Exit   else   begin   Rstream:=TResourceStream.Create(Hinst,skinnam,'MYS KIN');   dxSkinsUserSkinLoadFromStream(Rstream);   dxSkinController1.NativeStyle:=False;   dxSkinController1.UseSkins:=True;   end;   end;   一. DELPHI的主菜单: Project -> Modify Skin Options ,弹出Project Skin Options   Editor 对话框,从列表中,只选择: UserSkin这一项,取消Enable skin Support的勾,   点OK退出. (注意:此步骤需DEV40以上版本才有效)   二. 从Dev Express 项下选择dxSkinController控件,添加到工程,设置dxSkinController1的SkinName属性设为:UserSkin ;   三. 代码:(对RES皮肤有效,在程序文件夹里需要先建一个叫Skin的文件夹) 相关资源:七夕情人节表白HTML源码(两款)
转载请注明原文地址: https://www.6miu.com/read-4150007.html

最新回复(0)