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

Posted 2023-05-04

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

参考技术A 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!完成 参考技术B 操作步骤如下：
1、选择DBGrid，并双击进行事件OnDrawDataCell进行代码编辑；
2、输入代码如下：

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

delphi 能实现dbgrid 一行表格 显示 两行文字；即一行表格的文字可以换行。怎么实现？

DBGrid貌似不能这样的！
不过，推荐你用EHLIB控件里的DBGrIDEh或者Devexpress VCL
这两个控件里的GRID都是支持多行自动换行的！ 参考技术A dbgrid不行
用DEVExpressVCL的cxgrid能做到