Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP Tip - Mouse Cursor
Message
De
22/07/1999 12:38:10
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00244825
Message ID:
00244830
Vues:
16
>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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform