8288分类目录 8288分类目录 8288分类目录
  当前位置:海洋目录网 » 站长资讯 » 站长资讯 » 文章详细 订阅RssFeed

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

来源:本站原创 浏览:119次 时间:2021-09-18
看看 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 := GetEnviro��ů,ƽ̹nmentVariable('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;


效果图:



  推荐站点

  • At-lib分类目录At-lib分类目录

    At-lib网站分类目录汇集全国所有高质量网站,是中国权威的中文网站分类目录,给站长提供免费网址目录提交收录和推荐最新最全的优秀网站大全是名站导航之家

    www.at-lib.cn
  • 中国链接目录中国链接目录

    中国链接目录简称链接目录,是收录优秀网站和淘宝网店的网站分类目录,为您提供优质的网址导航服务,也是网店进行收录推广,站长免费推广网站、加快百度收录、增加友情链接和网站外链的平台。

    www.cnlink.org
  • 35目录网35目录网

    35目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向35目录推荐、提交优秀网站。

    www.35mulu.com
  • 就要爱网站目录就要爱网站目录

    就要爱网站目录,按主题和类别列出网站。所有提交的网站都经过人工审查,确保质量和无垃圾邮件的结果。

    www.912219.com
  • 伍佰目录伍佰目录

    伍佰网站目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向伍佰目录推荐、提交优秀网站。

    www.wbwb.net