Delphi TGrid中一行的背景色

通过操纵tgrid，我们几乎得到了Mike的解决方案。我唯一想知道的是如何在ApplySyling过程中设置背景

Procedure TFinanicalCell.ApplyStyling;
begin
  FontColor:= claBlue;
  Font.Size:= 18;
  // Background ?
    if Assigned(Font.OnChanged) then
      Font.OnChange(Font);
      Repaint;
end;

Procedure TFinancialCell.SetData(const Value: TValue);
var
 F: Single;
begin

  F := Value.Astype<single>;
  inherited SetData(Format('%m',[F]));

end;

我还想知道为什么我的setData过程中的值是0

Procedure TFinanicalCell.ApplyStyling;
begin
  FontColor:= claBlue;
  Font.Size:= 18;
  // Background ?
    if Assigned(Font.OnChanged) then
      Font.OnChange(Font);
      Repaint;
end;

Procedure TFinancialCell.SetData(const Value: TValue);
var
 F: Single;
begin

  F := Value.Astype<single>;
  inherited SetData(Format('%m',[F]));

end;

---

检查这是本页右侧相关列表中的第二项。@Arioch'这不是真正的重复，因为一个问题中有两个问题（样式和数据），样式部分是重复的：o）表单中的OnGetData代码是什么？Mike:我的getValue方法在我的表单中实现。我将该方法添加到上面的代码中，这样您就可以看到itI阅读了文章“将TTextCell背景色更改为运行时XE4”我不太明白FindStyleResource（“背景”）的意思我需要从工具选项板手动添加矩形吗？当我将FindStyleResource（“后台”）添加到ApplyStyle过程时，我得到了零？