[ginobili20]

Hola gracias, lo resolvi mas rudimentariamente:

Código Delphi [-]
procedure TForm1.DBGridRenglonesMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Coordenadas: TGridCoord;
begin
  Coordenadas := DBGridRenglones.MouseCoord(X,Y);
  DBGridRenglones.SetActiveRow(Coordenadas.Y-1);
  with TStringGrid(DBGridRenglones) do
  begin
    Row := Coordenadas.Y;
    Col := Coordenadas.X;
    SetFocus;
  end;
end;

Por si a alguno le sirve...