Drag & Drop con StringGrid

[kes]

Hola a todos.

Tengo un problema al arrastrar un registro de un TListView a un StringGrid. Si el StringGrid me cabe entero dentro del formulario no hay problema, pero cuando me desplazo hacia abajo con el scroll y luego intento arrastrar un objeto me lo coloca en una fila incorrecta. El código que utilizo es el siguiente:

procedure TForm1.GridDragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
stringgrid.Cells[0,y div stringgrid.defaultrowheight]:='Texto';
end;

El problema está en que "y div stringgrid.defaultrowheight" no devuelve la fila correcta, ya que Y es el valor de la coordenada de la parte visible del grid, ignorando las filas que no se ven.

¿Hay alguna forma de saber la fila del stringgrid en que nos encontramos en el momento de arrastrar un elemento?

Saludos y gracias.

[afxe]

Mirate la funcion MouseToCell, a partir de una coordenada en pantalla te da la fila y columna correspondiente.

Saludos.

[kes]

Muchas gracias Afxe. Es justo lo que queria!

Saludos.