[Delphi] 自帶皮膚動態切換

我爱我家喵喵發表於2024-12-09
原文網址 : https://www.cnblogs.com/yangyxd/p/18595696

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

相關文章