[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;
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步