delphi中DBGrid里的数据满足条件的以显示红色
答案:1 悬赏:10 手机版
解决时间 2021-04-26 14:34
- 提问者网友：别再叽里呱啦
- 2021-04-25 17:33
如何让delphi中DBGrid里的数据满足条件的以显示红色，（DBGrid里的字段包含：用户名，用户类型，电话）条件是用户类型为“免费”的数据列都以红色显示，请给出具体示范源码。
最佳答案
- 五星知识达人网友：迟山
- 2021-04-25 18:39
1、首先将dbgrid的属性options中的dgRowSelect的值设置为true
2、然后在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!完成
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯