[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;
标签:
Delphi
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 分享一个免费、快速、无限量使用的满血 DeepSeek R1 模型,支持深度思考和联网搜索!
· 25岁的心里话
· 基于 Docker 搭建 FRP 内网穿透开源项目(很简单哒)
· ollama系列01:轻松3步本地部署deepseek,普通电脑可用
· 按钮权限的设计及实现
2021-12-09 [转] DOS特殊字符转义方法
2021-12-09 引荐来源网址政策: strict-origin-when-cross-origin