Scrollbox + Image + molette

Bonjour,

Je place un TImage sur un TScrollbox pour pouvoir faire défiler le bitmap.

Si je fais rouler la molette de la souris quand le curseur se trouve sur l'ascenseur du TScrollbox, l'image défile vers le bas ou le haut. C'est cool.

Par contre, si je fais rouler la molette quand le curseur est au-dessus de l'image, il ne se passe rien ! :cry:

J'ai essayé de gérer l'évènement OnMouseWheel du TImage et de passer le paramètre "WheelDelta" à la méthode "scrollby" du TScrollBox. Mais ça ne donne rien ! (re):cry:

D'après vous, comment puis-je faire ?

Merci

JS

Observes-tu le même comportement si tu cliques d'abord sur l'image avant de tourner la molette ?

Citation:

---

Envoyé par tourlourou

Observes-tu le même comportement si tu cliques d'abord sur l'image avant de tourner la molette ?

---

Oui !

Il y a un scintillement, mais rien ne se passe.

Bon, j'ai fini par trouver une solution. Je ne sais pas si c'est la meilleure, la seule ou la pire, mais elle fonctionne alors, je la donne ici, au cas ou cela intéresserait quelqu'un.

Dans le OnMouseWheel de l'image j'ai mis

Code:

---

1 2 3 4 5

If Wheeldelta < 0 Then Scrollbox1.VertScrollBar.Position := Scrollbox1.VertScrollBar.Position + Scrollbox1.VertScrollBar.Increment Else Scrollbox1.VertScrollBar.Position := Scrollbox1.VertScrollBar.Position - Scrollbox1.VertScrollBar.Increment;

---

Voilà. Ça ... roule :lol: :ccool:

JS