Question

delphi中DBGrid里的数据满足条件的以显示红色

如何让delphi中DBGrid里的数据满足条件的以显示红色，（DBGrid里的字段包含：用户名，用户类型，电话）条件是用户类型为“免费”的数据列都以红色显示，请给出具体示范源码。

Answer 1

1、首先将dbgrid的属性options中的dgRowSelect的值设置为true2、然后在dbgrid的DrawColumnCell时间中写如下代码 if Adoquery1.FieldByName('用户类型').AsString = '免费' then
Dbgrid1.Canvas.Font.Color := clred
else
Dbgrid1.Canvas.Font.Color := clBlack;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); ok!完成

Answer 2

操作步骤如下：
1、选择DBGrid，并双击进行事件OnDrawDataCell进行代码编辑；
2、输入代码如下：

if (qyDetail.FieldByName('field1').AsCurrency <> 0) or
(qyDetail.FieldByName('field2').AsCurrency <> 0) then //符合条件的字段
begin
ABrush.Color := clred ; //字体颜色
end;
3、编译后查看效果即可。