OraFormsMouseClick can be used to simulate a single mouse click on a control or form window.
OraForms.bdh
OraFormsMouseClick( in sName : string,
in nX : number,
in nY : number,
in nMod : number optional ) : boolean;
| Parameter | Description |
|---|---|
| sName | Unique name of the control or window on which the mouse click should occur. |
| nX | X-Coordinate of the mouse click. |
| nY | Y-Coordinate of the mouse click. |
| nMod |
(optional): This parameter can be used to define a key modifier. A key modifier is a special key that is additionally pressed when the mouse button is clicked. The following constants are available:
If no modifier should be used, pass 0 for this parameter. |
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");
// ---
// New window activated: WINDOW1
OraFormsSetWindow( "WINDOW1");
OraFormsMouseClick( "TREE_BLK_PROD_TREE_0", 65, 125, 0);
OraFormsMouseDblClick( "TREE_BLK_PROD_TREE_0", 65, 125, 0);
OraFormsMenuItem( "WINDOW1", "Action::Exit");
end TMain;