How to Trap a mouse?

Are there any examples of how to trap an event for a scroll wheel of a mouse?

I am having an issue with users unitentionally adding a record by scrolling the mouse wheel.   The form proprty AutoAppend is set to false,  and I trap Pg up and Pg down keys to prevent this issue.   Unfortunately I have not been able to trap the mouse wheel.

I just looked at one of my forms.. auto append off, scroll wheel does nothing.. auto append on, scroll wheel changes records

Steven Green
Senior Software Engineer
Paradox Support Specialist DOS/WIN

and I know that was the specific reason I turned auto append off on that form.. I remember the problem it created when somebody decided to play "wheel of fortune" on that form (sigh)

Steven Green
Senior Software Engineer
Paradox Support Specialist DOS/WIN

I had a similar problem to get control of the mouse scroll wheel.

Found some code on the board that solved my problem.

I usa a form with a single record table plus a atble frame to show selected query results from the table. The code shown, disables the scroll wheel when in edit mode. While in view mode I can scroll the records as well as the results in the table frame.

(When using a mouse control app that enables scrolling in the editor, such as KatMouse (enabled), scrolling in the running form is not working)

method action(var eventInfo ActionEvent)

var
thetarget UIObject
endvar
;// Original Code on http://www.prestwoodboards.com/ASPSuite/eBoard/Thread.asp?MBID=406#MBID470
;// By HTH somebody - Matthew Wegener -ISoft Data Systems, Inc.
;// Works without : if eventInfo.isPreFilter() then  .....
;// This code executes for each object on the form  ... else....
;// Needed to disable the mousewheel while editing a single record on a form (from a Multi Record layout)
;// while keeping available the mousewheel scrolling option in other table frames linked to different
;// tables on the form.  When not in editing mode, scrolling through the records must remain available.
;// Corel should edit and update the ObjectPal reference if not update Paradox completely and compile
;// everything to 64bit version. I guess it's about time if you intend to keep the software in the Office Suite

If self.isEdit() then

switch

case eventInfo.id() = datapriorrecord:
eventinfo.setErrorCode(UserError)
eventInfo.getTarget(theTarget)
thetarget.action(Fieldbackward)

case eventInfo.id() = datanextrecord:
eventinfo.seterrorcode(UserError)
eventInfo.getTarget(theTarget)
thetarget.action(Fieldforward)

case eventInfo.id() = MoveScrollPageUp:
eventinfo.setErrorCode(UserError)

case eventInfo.id() = MoveScrollPageDown:
eventinfo.setErrorCode(UserError)

endswitch
endIf

endMethod

just an FYI on your "Corel should update" comment in your code.. ain't gonna happen, for many reasons.. paradox 11 is paradox 11.. that's the canvas we have to work with

Steven Green
Senior Software Engineer
Paradox Support Specialist DOS/WIN