Código Delphi
[-]procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdSelected in State) then
begin
DBGrid1.Canvas.Brush.Color :=clInfobk;
Dbgrid1.Canvas.Font.Style:=[fsBold];
DBGrid1.Canvas.Font.Color:=ClBlack;
DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end;
end;
Aquí tienes un ejemplo, aunque creo que el problema que tienes es que no has marcado la opción:
Options: dgRowSelect = True.
Un Saludo.