how to pass-through mousewheel from control to form

[Nifrabar]

Hi!

I use the form-mousewheel(nDirection)event to skip forward/back through my records.
nDirection > 0 ---> skip 1
nDirection < 0 ---> skip -1
That works fine as long as the mousepointer is on the form.
Is there a way to pass through same behaviour even if a control on the form has focus?
Will bindevent do so ? I never used that....

-Bart

 

[TamarGranor]

Yes, you could bind the MouseWheel event of each control on the form to the form's MouseWheel event.

Tamar

 

[Nifrabar]

Tamar,
That;s what I thought.
Would you give me a hand on this for the help-file is a bit weird on this.
-Bart

 

[Imaginecorp]

First: before you event attempt Bindevent(), make sure all your controls are sub-classes, or you will be pulling your hair out.

***Forms INIT()
**nDirection > 0 ---> skip 1
**nDirection < 0 ---> skip -1

***Controls INIT()
Bindevent(This,"MouseWheel",Thisform,"MouseWheel")

Thats all to it...

 

[Imaginecorp]

Sorry:
NOT: ***Forms INIT() BUT
**** Forms.Mousewheel()
**nDirection > 0 ---> skip 1
**nDirection < 0 ---> skip -1

 

[Nifrabar]

ImagineCorp,
Thanks.
In my class lib I tailored bit more enabeling to turn off 'on request' this behaviour.

IF this.lBindMousewheelToForm
Bindevent(This,"MouseWheel",Thisform,"MouseWheel")
ENDIF

Any way THANKS for pointing me to the syntax.

-Bart

 

[Imaginecorp]

Thats exactly how I would do it...