How To Prevent Two Instances of a Form from Running

MORE INFORMATION

Step-by-Step Example

1. Create a new form by typing the following in the Command window:

      CREATE FORM test
   							

2. From the View menu, choose Data Environment. Add the Customer table from the \VFP\SAMPLES\DATA directory.
3. Drag some fields from the Data Environment to the form.
4. Right-click anywhere on the form to open the property sheet. In the property sheet, select the Methods Tab and open the Init event.
5. Type the following code in the Init Event:

      LOCAL i, lcWindName, llRetVal
   
      * Initialize the variables. llRetval returns a .F. from the INIT() if
      * the form is already visible. Returning a .F. from any INIT() causes
      * the object to not be created.
      * i contains the number of instances of the form.
      * lcWindName contains the name of the form you're looking at.
   
      llRetVal = .T.
      i = 0
      lcWindName = WCHILD("",0) && The "" must be a NULL or empty string
   
      * Loop through all open forms, and see if we have any that have the same
      * name as the one you want to open. (It exists in INIT() but is not yet
      * available.)
   
      DO WHILE !EMPTY(lcWindName)
         IF lcWindName = UPPER(this.name)
            i = i + 1
            IF i > 1
               llRetVal = .F.
               EXIT
            ENDIF
         ENDIF
         lcWindName = WCHILD("",1) && The "" must be a NULL or empty string
      ENDDO
   
      RETURN llRetVal
   							

6. Save and run the form.