新建自己的VCL程式，在PROJECT>OPTIONS>Application>Appearance 下選擇好自己喜歡的幾個樣式

如下圖

 然後按OK。

在視窗中放置PANNEL，頂部對齊；LISTBOX控制元件居中對齊；底部放置一個BUTTON按鈕，結果如下圖

程式碼如下

unit Unit1;

interface

uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type   TForm1 = class(TForm)     Button1: TButton;     ListBox1: TListBox;     Panel1: TPanel;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }

  public     { Public declarations }   end;

var   Form1: TForm1;

implementation  uses  Vcl.Themes, Vcl.Styles; {$R *.dfm}  procedure TForm1.Button1Click(Sender: TObject);   begin       TStyleManager.SetStyle(ListBox1.Items[ListBox1.ItemIndex]);   end;

procedure TForm1.FormCreate(Sender: TObject);   var    stylename:string  ;   begin     ListBox1.Clear;    for stylename in TStyleManager.StyleNames do     begin       ListBox1.Items.Add(stylename);     end;

 end ;

end.

 執行時如下：