>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!