怎么根据不同数据让DBGRid的行显示不同颜色呢？

Question

怎么根据不同数据让DBGRid的行显示不同颜色呢？

Answer 1

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;Field: TField; State: TGridDrawState);
　　begin
  　　 if Table1.Fieldbyname(′Salary′).value<=SpinEdit1.value then
     　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
　　 else
     　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
  　　 DBGrid1.Canvas.FillRect(Rect);
  　　 DBGrid1.Canvas.TextOut(Rect.left＋2,Rect.top＋2,Field.AsString);
　　end;