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