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;