delphi ADOQuery if语句,DBGrid该行或该单元背景色如何变红，请贵人解答！

[wallyhost0]

if ADOQuery1.Fields[2].AsDateTime < Date then
begin
//该行的背景色变为红色或该单元格的背景色变为红色；
end;

如上，红色部分的该行代码如何实现，谢谢！

[wallyhost0]

已经解决。

[山东蓝鸟贵薪]

不会吧,分享一下吧,
随便接接分的

[kye_jufei]

procedure   TForm1.DBGrid1DrawDataCell(Sender:   TObject;   const   Rect:   TRect; 
    Field:   TField;   State:   TGridDrawState); 
begin 
        if   Table1.FieldByName( 'Salary ').AsInteger   >   30000   then   begin 
                //字体 
                DBGrid1.Canvas.Font.Color   :=   clRed;//字体色 
                //背景                 
                DBGrid1.Canvas.Brush.Color   :=   clBlue;//背景色 
                DBGrid1.Canvas.FillRect(Rect); 
        end; 
        DBGrid1.DefaultDrawDataCell(Rect,   Field,   State); 
end;