Discussion :

[Jon Shannow]

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 !

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)

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

Merci

JS

[tourlourou]

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

[Jon Shannow]

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.

[Jon Shannow]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

JS