Bild Zoomen

[Shiva]

Hallo zusammen!

Ich möchte wie oben erwähnt ein Bild darstellen, in welches man hinein und rauszoomen kann. Dazu bin ich wie folgt vorgegangen.
Ich habe, da die Bilder meist größer sind als die verfügbare Fläche (besonders wenn man hineinzoomt, werden sie schnell größer), eine TScrollBox genommen in welche ich ein TImage plaziert habe, in welches das entsprechende Bild angezeigt wird.

Nun wollte ich das OnMouseWheelDown und OnMouseWheelUp - Event nutzten um den die Zoomfunktion umzusetzten. Das Problem ist nur, dass der Eventhandler, dieses Event nicht erkennt und dementsprechend nicht ausführt. Hat jemand eine Idee woran dass u.u. liegen kann? Ich bin da nämlich gerade etwas ratlos.

so far so long
mfg Shiva

P.S: ich arbeite z.zt. mit delphi 6 enterprise