[ruina]

para un Dbgrid puedes poner esto en el evento OnDrawColumnCell:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if (gdSelected in State) then
        TDBGrid(sender).Canvas.Brush.Color:=clteal;
    TDBGrid(sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;