How to Close a Form from a Toolbar (128117)

MORE INFORMATION

One of the features of a generic navigation toolbar is the ability to close any selected form. The example provided here obeys the following requirements:

• The Close button of the toolbar is usable with any active form on the screen.
• The Close button is independent of the form. The code does not have to be added to the form, and the close button is not an object of the form.
• The name of the form is not hard coded.

To run this example, copy the code into a program.

   *********************************************************************
   * This sample program defines a toolbar with a generic close button *
   *********************************************************************

   * The instance variable for this toolbar may not have to be public in
   * your program.
   PUBLIC oGenericTool
   oGenericTool=CREATEOBJECT('mytool')
   oGenericTool.SHOW

   * Executes a form
   DO FORM GETFILE('SCX','Select the Form','Run')

   DEFINE CLASS mytool AS TOOLBAR
      ADD OBJECT ToolButton AS ToolClose
   ENDDEFINE

   * Code for the command button. This code can be included in a Visual
   * Class Library
   DEFINE CLASS Toolclose AS COMMANDBUTTON
      Height= 51
      Width = 54
      Name = "Vcrclose"
      CAPTION = "Close it"

      PROCEDURE Click
         IF TYPE('_screen.ActiveForm')=='O'
            IF NOT ISNULL (_SCREEN.ACTIVEFORM)
              _SCREEN.ACTIVEFORM.RELEASE()
            ENDIF
         ELSE
            =MESSAGEBOX("There is no form to close")
         ENDIF
      ENDPROC
   ENDDEFINE