OraFormsMenuCreate can be used to activate a pop-up menu that is assigned to a control on a window. Popup menus are normally activated by a right-click in the control area.
OraForms.bdh
OraFormsMenuCreate( in sWindowName : string,
in nX : number optional,
in nY : number optional ) : boolean;
transaction TMain
var
sValue : string;
nFetched : number;
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");
OraFormsSetFocus( "PERSON_JOB_0");
OraFormsMenuCreate( "PERSON_JOB_0", 109, 12);
OraFormsMenuItem( "PERSON_JOB_0", "Action1");
OraFormsMenuItem( "WINDOW1", "Action::Exit");
end TMain;