[示例] 用代码设置 ListView 颜色 （只适用 Win …
2018-06-17 18:57:02来源：未知 阅读 ()
如果可以使用代码随意设置 ListView 的颜色，而不用加载额外的 Style 及修改官方的源码，那该有多好？！ 其实 Style 提供了很强了扩充性及可塑性，可以很容易的去操作它。
下面以 ListView 为例，用代码设置它的 ItemBackgroud 颜色（其它的控件基本上也能用相同的方法来设置）：
procedure TForm1.ListView1ApplyStyleLookup(Sender: TObject); var o1: TFmxObject; o2: TFmxObject; c: TAlphaColor; begin if Sender = ListView1 then c := TAlphaColorRec.Lightyellow else c := TAlphaColorRec.Mistyrose; o1 := TStyleManager.ActiveStyleForScene(Screen.ActiveForm as IScene).FindStyleResource('listviewstyle'); o2 := o1.FindStyleResource('itembackground'); // 需要判断第一次才设置颜色，否则会影响效能 if (o2 is TColorObject) and (TColorObject(o2).Color <> c) then begin TColorObject(o2).Color := c; TListView(Sender).NeedStyleLookup; end; end;
注意：此方法仅适用 Windows 平台，移动平台还是乖乖的用 Style 吧！
示例下载：[示例]用代码设置ListView颜色_Aone.zip
效果：（多个 ListView 可以各别设置不同颜色）
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
- uniGUI学习之uniButton图标(34) 2020-04-09
- UniGUI设置背景图片(09) 2020-02-04
- UniGUI之ServerModule常用设置(07) 2020-02-04
- Delphi 设置程序图标为系统默认图标 2019-12-09
- CEF4Delphi初识 2019-11-27
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
