[loxod]

Pues en lo mismo, solo tienes que agregar un par de lineas mas:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   If (gdFocused in State) then
     begin
        dbgrid1.canvas.brush.color := clYellow;
        dbgrid1.Canvas.Font.Size := 10;
        dbgrid1.Canvas.Font.Style := [fsBold]
     end;

    dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;