看看 Delphi XE2 为 VCL 提供的 14 种样式
16lz
2021-04-30
看看 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;
效果图:
更多相关文章
- CSS样式规则-CSS结构的特点
- laravel框架入门和基本使用(一)
- 安装FastDFS+Nginx
- Tomcat控制台日志输出到本地文件
- 坚果云和亿方云用哪个?
- robots.txt文件用法(针对搜索引擎收录的措施)
- Laravel 添加自定义函数
- svn命令使用
- Linux目录结构详解(最全最详细版)