[Delphi] 自帶皮膚動態切換

我爱我家喵喵發表於2024-12-09

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

相關文章