[Delphi] 自带皮肤动态切换

在 Delphi 较新的版本中(比如 10.4),可以在工程选项的 Application -> Appearance 中设置皮肤,可以同时选定多项并设置默认项。

使用以下代码,可以动态切换这些选择的皮肤:

uses
Vcl.Themes, ...
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Self.StyleName := ComboBox1.Text;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 0 to High(TStyleManager.StyleNames) do begin
ComboBox1.Items.Add(TStyleManager.StyleNames[I]);
end;
ComboBox1.Text := Self.StyleName;
end;
posted @   我爱我家喵喵  阅读(58)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 分享一个免费、快速、无限量使用的满血 DeepSeek R1 模型,支持深度思考和联网搜索!
· 25岁的心里话
· 基于 Docker 搭建 FRP 内网穿透开源项目(很简单哒)
· ollama系列01:轻松3步本地部署deepseek,普通电脑可用
· 按钮权限的设计及实现
历史上的今天:
2021-12-09 [转] DOS特殊字符转义方法
2021-12-09 引荐来源网址政策: strict-origin-when-cross-origin
点击右上角即可分享
微信分享提示