Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   ¿Evento scroll en TStringGrid? (https://www.clubdelphi.com/foros/showthread.php?t=44344)

grotero76 04-06-2007 17:46:08

¿Evento scroll en TStringGrid?
 
Hola a todos,

Mi pregunta es la siguiente: ¿Se produce algún tipo de evento cuando uso las barras de scroll en un TStringGrid?. El problema que estoy teniendo es que dibujo un combo dentro de una celda del grid, y cuando usan la barra de scroll quiero que ese combo se ponga invisible. No lo consigo pues no salta ningún tipo de evento, asi que el combo sigue visible cuando usan el scroll y es como si el combo se moviera por las celdas.... ¿Hay alguna forma de controlar esto?

Muchas gracias.

marcosl 04-06-2007 18:26:07

haber si te sirven estos
 
MouseWheelDown y MouseWheelUp

Denada

grotero76 05-06-2007 09:34:12

Muchas gracias por el intento pero no me ha servido, el evento salta al mover el cursor del ratón con el wheel del mismo, pero cuando yo uso la barra de scroll del grid no ocurre nada.....

¿Alguna otra sugerencia?

grotero76 05-06-2007 15:57:59

Por si le interesa a alguien lo he conseguido, seguro que no es la mejor forma pero no he encontrado otra manera.

El caso es que dibujo un combo sobre una celda del grid cuando selecciono una determinada columna, este combo lo pongo como visible y le asigno el foco (con setFocus), importante esto último pues sino no funciona.

Cuando pulso la barra de scroll salta el evento OnExit del combo, en ese momento lo pongo invisible y hago que en el grid no se seleccione nada, para ello uso una variable que defino como:

NoSelection: TGridRect = (Left:0; Top:0; Right:0; Bottom:0);

Así en el OnExit del combo tengo lo siguiente:

Combo.visible:=False;
Combo.selection:=NoSelection;

De esta manera he conseguido el efecto que deseaba.

Muchas gracias a todos por vuestro interés.
Un saludo.


La franja horaria es GMT +2. Ahora son las 01:59:44.

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