Alain,
Here's a recursive routine that takes an object reference as an argument and returns it's full containership name:
* FullName.prg 13-Jun-95
* Generate an object's full containership name
* 03-Dec-95 added additional validity testing
* 26-Apr-96 added testing to handle _VFP object which is its own .Parent
* 15-Jan-98 used IsObject()
* 12-Nov-98 added testing for Name property
function FullName( roObject )
if ( IsObject( m.roObject ) and ;
( type( "roObject.Name" ) == 'C' ) )
if ( ( type( "roObject.Parent" ) == 'O' ) and ;
( roObject.Name != "Microsoft Visual FoxPro" ) )
return ( FullName( roObject.Parent ) + "." + roObject.Name )
else
return roObject.Name
endif
else
return ""
endif
function IsObject
lparameter roObject
return( ( type( "m.roObject" ) == 'O' ) and ( ! isnull( m.roObject ) ) )
>Is there a way to get the entire reference for an object ?
>
>Ex: frmxxx.cntxxx.txtxxx.name