No funciona Drag&Drop entre DBGrids
Publicado por Fer (269 intervenciones) el 14/03/2002 06:27:27
Hola.
Tengo una aplicación en la que hay un form que tiene dos DBGrids entre los que pretendo permitir el Drag and Drop.
En el OnMouseDown de ambos grids he puesto el código:
if Button = mbLeft then
tControl(Sender).BeginDrag(False);
El problema consiste en que este código no se ejecuta. Sólo lo hace en el caso de que el usuario pulse el botón del ratón en una zona del grid sin registros (lo que resulta poco o nada intuitivo).
Si en la propiedad DragMode pongo el valor dmAutomatic, si funciona, pero entonces el problema es que no se puede seleccionar un registro con el ratón, lo que es todavía peor.
¿Alguien me puede dar una idea de lo que estoy haciendo mal?.
Gracias y un saludo.
Tengo una aplicación en la que hay un form que tiene dos DBGrids entre los que pretendo permitir el Drag and Drop.
En el OnMouseDown de ambos grids he puesto el código:
if Button = mbLeft then
tControl(Sender).BeginDrag(False);
El problema consiste en que este código no se ejecuta. Sólo lo hace en el caso de que el usuario pulse el botón del ratón en una zona del grid sin registros (lo que resulta poco o nada intuitivo).
Si en la propiedad DragMode pongo el valor dmAutomatic, si funciona, pero entonces el problema es que no se puede seleccionar un registro con el ratón, lo que es todavía peor.
¿Alguien me puede dar una idea de lo que estoy haciendo mal?.
Gracias y un saludo.
Valora esta pregunta
0