OraFormsGetNextChild Function

Action

OraFormsGetNextChild positions the pointer to the next child of an iterator created with OraFormsGetChildren.

Include file

OraForms.bdh

Syntax

OraFormsGetNextChild( in  nIterator  : number,
    out nHandlerId : number ) : boolean;

Return value

  • true if the iterator is set to the next position

  • false otherwise

Parameter Description
nIterator The iterator handle
nHandlerId This parameter is assigned the handler ID of the next control.

Example

dcltrans
  transaction TMain
  var
    sValue     : string;
    nIterator  : number;
    nHandlerId : 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");
    nIterator := OraFormsGetChildren("WINDOW1");
    if nIterator <> 0 then
      while OraFormsGetNextChild(nIterator, nHandlerId) do
        sValue := OraFormsGetPropString(string(nHandlerId), ORA_PID_TITLE);
        Print(sValue);
      end;
      OraFormsFree(nIterator);
    end;
end TMain;