看看 Delphi XE2 为 VCL 提供的 14 种样式
作者:互联网
看看 Delphi XE2 为 VCL 提供的 14 种样式
其实只提供了 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;
效果图:
标签:14,样式,vcl,Delphi,VCL,ListBox1,vsf,dir 来源: https://blog.51cto.com/u_14617575/2744282