dbgrid中根据条件如何设置某一网格颜色

Question

dbgrid中根据条件如何设置某一网格颜色
谢谢各位

Answer 1

//这里编写的程序是<60的网格为红色的情况，其他的可以照此类推
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;