DevExpress vcl 动态调用皮肤

本文整理自网络，侵删。

 
dxSkinController可以在运行时动态调入皮肤，不用在设计期Use一大堆皮肤文件。

把要用的皮肤用Skin Editor编辑一个SkinRes后缀的文件，然后在程序中动态调入就可以了。


uses dxSkinsDefaultPainters;

procedure TForm1.FormCreate(Sender: TObject);
begin
cxComboBox1.Properties.Items.Clear;
dxSkinsUserSkinPopulateSkinNames(ExtractFilePath(ParamStr(0))+'\bsSkins.skinres',
cxComboBox1.Properties.Items);
cxComboBox1.ItemIndex:=0;
end;

procedure TForm1.cxComboBox1PropertiesChange(Sender: TObject);
begin
//这个地方必须是UserSkin,不然不会起作用
dxSkinController1.SkinName:='UserSkin';
dxSkinsUserSkinLoadFromFile(ExtractFilePath(ParamStr(0))+'\bsSkins.skinres',cxComboBox1.EditText);
end;

procedure TForm1.dxSkinController1SkinForm(Sender: TObject;
AForm: TCustomForm; var ASkinName: String; var UseSkin: Boolean);
begin
UseSkin:=false;
end;

https://blog.csdn.net/QQ56430204/article/details/54647452
 

相关阅读 >>

Delphi 在vcl中显示一个非激活状态的窗口

Delphi udl文件创建

Delphi整理六（数据与记录）

Delphi 编写ie代理服务器

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi 让窗体自适应屏幕显示

Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串

Delphi获取dos命令行输出函数 运行cmd命令并获取结果

Delphi 通过程序窗体句柄获取程序路径

Delphi的rtti实现数据集的简单对象化

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DevExpress vcl 动态调用皮肤