FireMonkey TListBox运行时修改背景色的非样式实现方法

当然存在无需修改样式就能在运行时修改TListBox背景色的方法，OnPaint事件完全可以实现这个需求，甚至能提供更灵活的自定义背景方案。

方法一：通过OnPaint事件自定义背景（保留原有列表项样式） #

这种方法的核心是在控件绘制时先手动填充背景色，再调用默认绘制逻辑保留列表项、滚动条等原有功能。给TListBox绑定OnPaint事件后，写入以下代码：

procedure TYourForm.ListBox1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
  LClientRect: TRectF;
begin
  // 绘制自定义背景色，范围覆盖整个ListBox客户端区域
  LClientRect := (Sender as TListBox).ClientRect;
  Canvas.Fill.Color := TAlphaColors.LightSkyBlue; // 替换为你需要的颜色
  Canvas.FillRect(LClientRect, 0, 0, [], 1.0);
  
  // 调用默认绘制逻辑，确保列表项、滚动条等内容正常显示
  (Sender as TListBox).DefaultDraw(Canvas, ARect);
end;

这种方式既不会破坏原有列表项的样式，又能随时修改Canvas.Fill.Color的值动态切换背景色。

方法二：清空StyleLookup后直接设置Fill属性（极简无样式场景） #

如果不需要保留原有列表项的复杂样式，也可以直接清空控件的样式引用，通过Fill属性直接设置背景：

// 在初始化或运行时执行
ListBox1.StyleLookup := ''; // 禁用默认样式，使用基础绘制逻辑
ListBox1.Fill.Color := TAlphaColors.LightGreen;

这种方式更简洁，但会让列表项变成最基础的样式，适合对UI复杂度要求不高的场景。

内容的提问来源于stack exchange，提问作者user2383818