Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP Tip - Mouse Cursor
Message
From
22/07/1999 12:38:10
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00244825
Message ID:
00244830
Views:
12
>I posted a question on how do you get the mouse cursor to reapper if a user TABs to a command button and presses the ENTER key. Whenever a users moves between controls using the keyboard the mouse cursor disappears. To resolve this, I placed the following code in the KeyPress of the command button:
>LPARAMETERS nKeyCode, nShiftAltCtrl
>if nKeyCode = 13
>   Mouse Click at ;
>      This.Top + This.Height/2, ;
>      This.Left + This.Width/2 ;
>      pixels window (wontop()) left
>   NoDefault
>else
>   DoDefault()
>endif
>
Sounds good. Just FYI, I found you can also use something like this to force the mouse pointer to appear:

x=mrow("SCREEN",3)
y=mcol("SCREEN",3)
mouse drag to x+1,y+1 pixels
mouse drag to x,y pixels

Bill
William A. Caton III
Software Engineer
MAXIMUS
Atlanta, Ga.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform