xe Style

//注意引用：vcl.themes, vcl.styles, IOutils
procedure TForm1.FormCreate(Sender: TObject);
var
  stylename: string;
begin
  TStyleManager.LoadFromFile(‘F:\My\Style1.vsf‘);
  for stylename in  TStyleManager.StyleNames do
    listbox1.Items.Add(stylename);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  TStyleManager.SetStyle(Listbox1.Items[Listbox1.ItemIndex]);
end;