看看 Delphi XE2 為 VCL 提供的 14 種樣式

看看 Delphi XE2 為 VCL 提供的 14 種樣式

uses IOUtils, Vcl.Styles, vcl.Themes;

procedure TForm1.FormCreate(Sender: TObject);
var
  dir, fileName, styleName: string;
begin
    dir := GetEnvironmentVariable() + ;

  
  for fileName in TDirectory.GetFiles(dir, ) do
    TStyleManager.LoadFromFile(fileName);

    
  for styleName in TStyleManager.StyleNames do
    ListBox1.Items.Add(styleName);
end;


procedure TForm1.ListBox1Click(Sender: TObject);
begin
  TStyleManager.SetStyle(ListBox1.Items[ListBox1.ItemIndex]);
end;