Current form page

version 3

Current form page Number

The Current form page command returns the number of the currently displayed form page.

In a form, when you select a menu item from the menu bar or when the form receives a call from another process, you can perform different actions depending on the form page currently displayed. In this example, you write:

      ` [myTable];"myForm" Form Method
   Case of
      : (Form event=On Load)
         ` ...
      : (Form event=On Unload)
         ` ...
      : (Form event=On Menu selected)
         $vlMenuNumber:=Menu Selected >> 16
         $vlItemNumber:=Menu Selected & 0xFFFF
         Case of
            : ($vlMenuNumber=...)
               Case of
                  : ($vlItemNumber=...)
                     : (Current form page=1)
                        ` Do appropriate action for page 1
                     : (Current form page=2)
                        ` Do appropriate action for page 2
                        ` ...
                  : ($vlItemNumber=...)
                        ` ...
               End case
            : ($vlMenuNumber=...)
               ` ...
         End case
      : (Form event=On Outside call)
         Case of
            : (Current form page=1)
               ` Do appropriate reply for page 1
            : (Current form page=2)
               ` Do appropriate reply for page 2
         End case
            ` ...
   End case

FIRST PAGE, GOTO PAGE, LAST PAGE, NEXT PAGE, PREVIOUS PAGE.