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的檔案夾)