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