[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;