http://www.cnblogs.com/del/archive/2011/11/09/2243556.html
其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种.
在空白窗体上添加 ListBox1 等控件, 测试代码:
uses IOUtils, Vcl.Styles, vcl.Themes;
procedure TForm1.FormCreate(Sender: TObject);
var
dir, fileName, styleName: string;
begin
//VCL 的样式文件 *.vsf 在 X:\Program Files\Embarcadero\RAD Studio\9.0\Redist\styles\vcl\
dir := GetEnvironmentVariable('Delphi') + '\Redist\styles\vcl';
{载入所有 *.vsf 文件}
for fileName in TDirectory.GetFiles(dir, '*.vsf') 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;
效果图:
http://stackoverflow.com/questions/9906312/delphi-xe2-vcl-styles-tutorial-how-to-change-the-style-at-runtime
http://docwiki.embarcadero.com/Libraries/XE4/en/Vcl.Themes