动态加载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.