How To Causing a Form or Formset to Time Out

MORE INFORMATION

Step-by-Step Example

1. Create a new form. Add the following properties to the form:

   dtCurrTime
   dtKeyPress
   dtMousemove

2. In the Init method of the form, add the following code:

      ThisForm.DtKeyPress = DATETIME()
      ThisForm.dtMouseMove = DATETIME()
   						

3. In the KeyPress method of the form, add the following code:

      ThisForm.dtKeyPress = DATETIME()
   						

4. In the MouseMove method of the form, add the following code:

      ThisForm.dtMouseMove = DATETIME()
   						

5. Add a timer control to the form. Set the Interval property of the timer to the desired number of seconds * 1000. Add the following code to the TimerEvent method of the timer:

      lnIntervalInSeconds = This.Interval / 1000
      ThisForm.dtCurrTime = DATETIME()
      IF ThisForm.dtCurrTime - ThisForm.dtMousemove >= lnIntervalInSeconds ;
         AND ;
         ThisForm.dtCurrTime - ThisForm.dtKeypress > = lnIntervalInSeconds
            ThisForm.Release
      ENDIF
   						

6. Add a text box to the form for testing purposes. Save and run the form.
7. The form should time out and release after the specified number of milliseconds.

Incorporating a Timeout into a Formset

1. Create the three properties specified in step 1 of the example so that they are created at the formset level.
2. Place the Init code specified in step 2 in the Init method of the formset. Change the reference of ThisForm to ThisFormSet.
3. Create the timer control on each individual form in the formset. This is required because the formset itself does not contain KeyPress and MouseMove events. Each form in the formset must maintain its own unique timer, but the formset itself must maintain the information as to whether the user has interacted with any form within the formset. Change all ThisForm references to ThisFormSet within this method.
4. Change the reference of ThisForm in steps 3 and 4 of the example to ThisFormSet.