[ecfisa]

Hola flystar.

Está como hacerlo con doble click en: http://www.clubdelphi.com/foros/showthread.php?t=65065
(te aviso por que el hilo fué iniciado por seb@ )

Con un sólo click es mucho más sencillo ya que sólo debes poner la propiedad
DbGrid.Options.dgRowSelected a True y esto en OnDrawColumnCell del DBGrid:

procedure TForm1.DBGRubDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if  gdSelected in State then
   with DBGrid1 do
   begin
     Canvas.brush.Color:= clBlue;
     Canvas.Font.Color:= clWhite;
     DefaultDrawColumnCell(Rect, DataCol, Column, State);
   end;
end;

Saludos.