Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to change mouse pointer to hourglass
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00274293
Message ID:
00274331
Views:
34
>Hi All:
>
>When my application goes into short wait states, how do I change the mouse pointer to an hourglass like other windows apps?
>
>Thanx,
>Charlie

Hi Charlie,

I aded a custom method to my base form called MouseWait. I just call
THISFORM.MouseWait(.T.) && turn to an HourGlass
THISFORM.MouseWait(.F.) && turn to pointer
LPARAMETERS llWaitState

IF pcount() > 0
	IF llWaitState
		THIS.MOUSEPOINTER = 11
		THIS.SETALL('mousepointer',11)
	ELSE
		THIS.MOUSEPOINTER = 0
		THIS.SETALL('mousepointer',0)
	ENDIF
ENDIF
hth
Roi
'MCP' Visual FoxPro

In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!
Previous
Reply
Map
View

Click here to load this message in the networking platform