Foros Club Delphi - Activar ruedecita ratón en un TScrollBox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Activar ruedecita ratón en un TScrollBox (https://www.clubdelphi.com/foros/showthread.php?t=82086)

Activar ruedecita ratón en un TScrollBox

Hola,

En tiempo de ejecución creo un TScrollBox dentro de un TTabSheet (creado también tiempo de ejecución). Uso Delphi 2007. Este ese el código:

Código:

    Hoja := TScrollBox.Create(Self);

    Hoja.Tag := Trabajo;

    Hoja.Parent := Nuevo;

    Hoja.Align := alClient;

    Hoja.Color := clWhite;

El problema que tengo es que no me funciona la ruedecita del ratón con el ScrollBox creado. No he varias pruebas, incluso con otros componentes de ScrollBox pero no consigue me funcione la ruedecita. ¿Alguna idea?

De antemano muchas gracias.

Hola Minotaure.

Revisa este hilo: Ratón arriba, ratón abajo, ratón arriba...

Saludos.

He aplicado el código que posteaste en el otro hilo y me funciona perfecto. Es curioso porqué busque hilos pero no encontré ese.

¡Muchas gracias!