请教，怎样实现TDBGrid彩色显示数据及其背景？

Question

比如说把利用字段“出生年月”中数据减去现在时间，若>60则彩色显示其“出生年月”数据，肯请各位高手讲讲。

Answer 1

procedure Tinfo.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
        if (query1.FieldByName(’出生年月’).asdatatime-now)>60 then
        begin
                dbgrid1.Canvas.Font.Color:=clred;
                
        end;
  dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);end;

Answer 2

关于背景  可以用SetBkMode 函数将dbgrid设置为透明，然后在后面加一张图片

Answer 3

同意 delphi_han(小强)
:)

Answer 4

delphi_han(小强) 好厉害!
:)
很诱人的技术, 我回去试试.