Drag and Drop entre DBGrids

[pborges36]

Hola a todos. Estoy tratando de hacer un Drag and drop entre DBGrids. Gracias a Neftali, quien puso un ejemplo en su pagina, pude lograrlo.
El procedimiento entre las DBGrids funciona de 10, pero cuando hago click en alguna de ellas para seleccionar un registro, no pasa nada. Solo puedo seleccionar un registro con el teclado, no con el mouse. Habra alguna propiedad que me permita seleccionar un registro con el mouse?
Desde ya muchas gracias.

[[gluglu]]

Como empiezas entonces el Drag&Drop, con el ratón, no ?

No he entendido bien tu pregunta, dices que si hacer Click con el ratón en alguno de los DBGrid's no te selecciona el registro correspondiente que tienes justo debajo del cursor del ratón ?

Eso lo debería hacer el propio DBGrid sin más.

[pborges36]

Empezado por gluglu

hacer Click con el ratón en alguno de los DBGrid's no te selecciona el registro correspondiente que tienes justo debajo del cursor del ratón ?

Eso es exactamente lo que sucede, cosa que no sucedia antes de hacer esto de Drag and Drop.

[Paoti]

prueba a activar el drag and drop no en el evento onclic sino en el doble click, seria la solución


proque al hacer clic se activa el drag y no la selección.

[[gluglu]]

En este caso lo que yo no utilizaría el Doble Click, ya que nadie está acostumbrado a empezar un Drag&Drop con un Doble Click del ratón.

La solución pasa por activar el Drag&Drop de forma manual y no automática. Para ello pon la propiedad DragMode a dmManual (por defecto), y en el evento OnMouseClick de cada uno de los DBGrid's pon :

Código Delphi [-]
  if (Button = mbLeft) and (not IBDataSet1.IsEmpty) then
    DBGrid1.BeginDrag(False,10);

siendo IBDataSetX el DataSet asociado a cada Grid, y DBGridX el DBGrid correspondiente.

Ello te provocará que el Drag&Drop no comienze hasta que muevas el cursor del raton 10 pixel's, y de esta manera mantengas total funcionalidad en la selección de los registros.

Espero te ayude. Saludos

[pborges36]

muchas gracias gluglu, Hice lo que dijiste y funciona, solo un detalle: Para arrastrar debo hace click en la parte vacia del DBGrids, si hago click sobre un registro no hace nada. Para mi que tiene algo que ver con alguna propiedad del DBGrid. Puede ser?