DBGrid之某特定单元格的颜色设置(15)

procedure TForm13.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin

 if (Column.Field.FieldName = 'password')  and  (DBGrid1.DataSource.DataSet.RecNo=10)
 then
     begin
      DBGrid1.Canvas.Font.Color:=clRed;
      DBGrid1.Brush.Color:=clYellow;
     end;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;