Question

怎么在delphi中设置grid中字段的背景颜色

Answer 1

设置grid中字段背景颜色的步骤如下：
1、选择Grid，并双击进行事件OnCalcCellColors进行代码编辑；
2、输入代码如下：
if (field=qyDetail.FieldByName('field1')) or
(field=qyDetail.FieldByName('field2')) then //符合条件的字段
begin
ABrush.Color := $00FBC8F7; //字体颜色，可随便设置 eg. clred clMoneygreen
end;
3、编译后查看效果即可。

Answer 2

举例说明DBGrid中行列颜色显示：
纵向斑马线效果：实现网格的奇数列和偶数列分别以不同的颜色显示,以区别相邻的数据列。 file://在DbGrid的DrawColumnCell事件中编写如下代码：
Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clBlue; file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅绿色
End;
DbGrid1.Canvas.Pen.Mode:=pmMask;
DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);