1.Stringgrid(某些记录的)背景色设置： begin
if grid.Cells[9,ARow] = '已维修' then //第9列维修状态为已维修 begin
grid.Canvas.Font.Color := clred; //字体改为红色
//grid.Canvas.Brush.Color := clred; //刷子刷过颜色都改变
grid.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2,grid.Cells[ACol, ARow]); end;
end; 如下图：
2.Dbgrid(某些记录的)背景色设置： begin
inherited;
if qry1.FieldByName('repair_state').AsString='等待PE判断' then DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
如下图