ASELOBJ()
Contents
Purpose
Function to load object references for specific current objects into an array
Syntax
ASELOBJ(<array-name>)
See Also
ACLASS(), ADDPROPERTY(), AMEMBERS(), COMPOBJ(), CREATEOBJECT(), DEFINE CLASS, DISPLAY CLASSES, DODEFAULT(), FOREACH, LIST CLASSES, LOADOBJECT(), NEWOBJECT(), OBJECT(), PEMSTATUS(), PRINT_HTML(), PRINT_JSON(), PRINT_R(), PRINT_XML(), REMOVEPROPERTY(), REQUIRE_ONCE(), SAVEOBJECT(), SQL SELECT, WITH
Description
The ASELOBJ() function is used to load load object references for the following current objects into the specified array at the following element positions:
- Active Page
- Active Section
- Active Formitem
- Active Grid Column
- Object under cursor
If there is no current object of the specified type, the element will contain .F. (False).
If the <array-name> array already exist, it will be overwritten as a one-dimensional array of 5 elements.
Example
proc page1_section1_field1_click() // Object browser aselobj(refs) for i = 1 to 5 if type('refs[&i]') <> 'O' loop endif release props amembers(props, refs[&i], 1) select 0 create table if not exists _amembers (name char(32), type char(20), datatype char(20), value char(255)) if !used('_amembers') use _amembers else select _amembers endif zap append from array props goto top browse endfor endproc