动态加载DevExpress的皮肤

unit  ufrmMain ;

interface

uses
   Classes ,  Forms ,  cxGraphics ,  cxLookAndFeels ,  cxLookAndFeelPainters ,  Menus ,
   dxSkinsCore ,  dxSkinLiquidSky ,  cxControls ,  cxContainer ,  cxEdit ,
   cxGroupBox ,  StdCtrls ,  cxButtons ,  dxSkinsForm ,  dxSkinsDefaultPainters ,
   Controls ,  Classes ;

type
   TForm1  =  class ( TForm )
     cxButton1 :  TcxButton ;
     cxGroupBox1 :  TcxGroupBox ;
     dxSkinController1 :  TdxSkinController ;
     Button1 :  TButton ;
     procedure  Button1Click ( Sender :  TObject );
   private
     { Private declarations }
   public
     { Public declarations }
   end ;

var
   Form1 :  TForm1 ;

implementation

uses  SysUtils ;

{$R *.dfm}

procedure  TForm1 . Button1Click ( Sender :  TObject );
begin
   dxSkinController1 . UseSkins  :=  False ;
   dxSkinController1 . NativeStyle  :=  False ;                          
   dxSkinsUserSkinLoadFromFile ( ExtractFilePath ( Application . ExeName )+ 'LiquidSky.skinres' );
   dxSkinController1 . SkinName  :=  'LiquidSky' ;
   dxSkinController1 . UseSkins  :=  True ;
end ;

end .

转载于:https://www.cnblogs.com/lobtao/articles/2263958.html