If (gdFocused in State) then
dbgrid2.canvas.brush.color := clRed;
dbgrid2.DefaultDrawColumnCell(rect,DataCol,Column,State)
este codigo debes ingresarlo en
procedure TForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
y el dgmultiselect en true...ojala te sirva, en este caso las pintara de rojo cuando estes sobre una fila.