waitmode Method
Class: tsbaseform
Expand/Collapse source code of procedure waitmode Source Code
*-- Changes the mouse cursor for the form and all it's children based
*-- on the value of the tlWaitMode parameter
LPARAMETERS tlWaitMode

lnMousePointer = IIF(tlWaitMode, MOUSE_HOURGLASS, MOUSE_DEFAULT)
thisform.MousePointer = lnMousePointer
thisform.SetAll('MousePointer', lnMousePointer)