IF !TYPE('thisform.ActiveControl') == T_Object OR ISNULL(thisform.ActiveControl') RETURN NULL ELSE _ActiveControl = THISFORM.ACTIVECONTROL ENDIF ....HTH
IF( !(TYPE('_ActiveControl') == T_OBJECT ) ) ASSERT FALSE ENDIFis the same as
ASSERT TYPE('_ActiveControl') == T_OBJECT::)
>lparameters DoNotGoDownIfGrid > >local _ActiveControl, _ActiveColumn, i, x > >if( type('thisform.ActiveControl') == T_UNDEFINED ) > return Null >else > _ActiveControl = thisform.ActiveControl >endif > >if( !(type('_ActiveControl') == T_OBJECT ) ) > assert FALSE >endif > >if( !DoNotGoDownIfGrid and (Proper(_ActiveControl.BaseClass) == 'Grid') ) > _ActiveColumn = _ActiveControl.ActiveColumn > > if( !empty(_ActiveColumn) ) > for i = 1 to _ActiveControl.ColumnCount > x = _ActiveControl.Columns[i] > if( x.ColumnOrder == _ActiveColumn ) > exit > endif > endfor > for i = 1 to x.ControlCount > if ( x.Controls[i].Name == x.CurrentControl ) > _ActiveControl = x.Controls[i] > exit > endif > endfor > endif >endif > >return _ActiveControl >