看看 Delphi XE2 为 VCL 提供的 14 种样式

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了看看 Delphi XE2 为 VCL 提供的 14 种样式，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含802字，纯文字阅读大概需要2分钟。

内容图文

   看看 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;

---

效果图:

---

内容总结

以上是互联网集市为您收集整理的看看 Delphi XE2 为 VCL 提供的 14 种样式全部内容，希望文章能够帮你解决看看 Delphi XE2 为 VCL 提供的 14 种样式所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---