[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 @   我爱我家喵喵  阅读(56)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示