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!完成
Dbgrid1.Canvas.Font.Color := clred
else
Dbgrid1.Canvas.Font.Color := clBlack;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); ok!完成