OraFormsGetChildren Function

Action

OraFormsGetChildren returns a handle that can be used to iterate over the children of a specified control. Use any property retrieval functions to access the control’s properties.

Include file

OraForms.bdh

Syntax

OraFormsGetChildren( in sName : string ) : number;

Return value

A value other than 0 on success
0 if the control is not found or does not have children

Parameter	Description
sName	The control’s unique name.

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;