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