Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiar el puntero al pulsar y soltar el ratón?? (https://www.clubdelphi.com/foros/showthread.php?t=13495)

superfer17 20-08-2004 13:15:10

Cambiar el puntero al pulsar y soltar el ratón??
 
Hola a todos.
Tengo un TStringGrid en el que quiero que cuando el usuario pinche con el ratón para arrastrar se cambie el puntero del ratón y al soltarlo, vuelva a tener el estilo original. Igual que en el Acrobat Reader para arrastrar las páginas, vamos.
El tema está en que capturando la pulsación del ratón en el MouseDown no me cambia el cursor hasta que no se suelta el botón y se ejecuta el MouseUp. Por algún motivo no te permite cambiar el puntero hasta que no se ha soltado el botón.
Sabeis de alguna forma de solucionarlo?
Gracias por adelantado.
Un saludo

yusnerqui 20-08-2004 14:14:41

Prueba
 
Probaste esto :
screen.Cursor := crDrag;
lo puse en el MouseDown del TStringGrid y me funcionó bien, espero te sirva.

un saludo

superfer17 23-08-2004 13:45:35

En efecto
 
Si, me funciona bien. Mi error era asignarle el valor del cursor (crDrag) a la propiedad cursor del componente. Pero asignándole el valor al Screen.cursor si lo coge.
Muchas gracias Yusnerqui.


La franja horaria es GMT +2. Ahora son las 01:42:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi