OraFormsCloseDialog Function

Action

OraFormsCloseDialog closes an active dialog that is identified by its unique name or ID. A standard dialog can be closed by clicking either the OK or CANCEL button, where two different constant values can be used to indicate which button is to be used to close the dialog.

Inlcude file

OraForms.bdh

Syntax

 OraFormsCloseDialog( in sName : string, 
                      in nButton : number ) : boolean;

Return value

  • true if successful
  • false otherwise
Parameter Description
sName The unique name of the dialog window that is to be closed.
nButton The button that is to be pressed to close the dialog:
  • ORA_DIALOG_OK
  • ORA_DIALOG_CANCEL

Example

 dcltrans
 transaction TMain
 var
    sValue :  string; 
 begin
    OraFormsSetConnectMode(ORA_SOCKET_CONNECTION);
    // Connect - with connection properties 
    OraFormsSetInt( "INITIAL_VERSION", 608);
    OraFormsSetPoint( "INITIAL_RESOLUTION", 96,  96); 
    OraFormsSetPoint( "INITIAL_DISP_SIZE", 1024,  768); 
    OraFormsSetInt( "INITIAL_COLOR_DEPTH", 256); 
    OraFormsSetString( "FONT_NAME" , "Dialog" ); 
    OraFormsSetPoint( "INITIAL_SCALE_INFO", 8,  18); 
    OraFormsSetBoolean( "WINSYS_REQUIREDVA_LIST",  false); 
    OraFormsConnect( "server module=Person3.fmx userid= useSDI=yes record=names"); 
    OraFormsSetWindow( "Logon"); 
    OraFormsLogon( "user",  "password",  "orcl_server"); 
    // --- 
    // New window activated: WINDOW1 
    OraFormsSetWindow( "WINDOW1"); 
    OraFormsMenuItem( "WINDOW1",  "Action::Calculator"); 
    // --- 
    // New window activated: CALC_PROMPT 
    OraFormsSetWindow( "CALC_PROMPT");
    OraFormsCloseDialog( "CALC_PROMPT", ORA_DIALOG_OK); 
    // --- 
    // New window activated: WINDOW1 
    OraFormsSetWindow( "WINDOW1"); 
    OraFormsMenuItem( "WINDOW1",  "Action::Exit"); 
  end TMain;