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...