[示例] 用代码设置 ListView 颜色（只适用 Win 平台，无需修改官方源码）

最新推荐文章于 2025-02-11 00:15:00 发布

weixin_30947043

最新推荐文章于 2025-02-11 00:15:00 发布

阅读量85

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/onechen/p/6597844.html

本文介绍了一种不依赖额外样式和官方源码修改的ListView颜色设置方法。通过代码直接设定ListView的ItemBackground颜色，并提供了一个具体实例，展示了如何根据不同条件设置不同颜色。

如果可以使用代码随意设置 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;