How to use the SYS(1270) function

MORE INFORMATION

The return type for the SYS(1270) function is either an Object or Logical. Because it could return an Object, you may receive a Data Type Mismatch error if you type the following a in the Command window:

   ? SYS(1270)
				

If you don't include any coordinates when you issue a SYS(1270), it will use the Mouse Pointer for the coordinates. The SYS(1270) function always returns a Logical False if no object is under the mouse pointer or located at the coordinates specified.

The following example uses a timer to call the SYS(1270) function and then increment a counter any time the mouse pointer isn't over the FoxPro Screen Object. (The Screen Object is the main Visual FoxPro Window. For more information search for _Screen in the Help file.)

**************** Begin Code ******************* PUBLIC oMyScreen

oMyScreen = CREATEOBJECT('Form') oMyScreen.AddObject('Text1','TextBox') oMyScreen.Text1.Top = 5 oMyScreen.Text1.Left = 5 oMyScreen.Text1.value = 1 oMyScreen.Text1.Visible = .T. oMyScreen.AddObject('Timer1','MyTimer') oMyScreen.Show

DEFINE CLASS MyTimer AS Timer

   Interval = 1000  && Calls the Timer event every second.
   PROCEDURE Timer Event
				

   ENDPROC
				

**************** End Code *******************