THISFORM.ThisMethodCall( THISFORM )And this is ThisMethodCall():
LPARAMETERS m.Container WITH m.Container FOR EACH oControl IN .CONTROLS IF PEMSTATUS(.CONTROLS[oControl],'RightClick',5) BINDEVENT(THISFORM,"RightClick",.CONTROLS[oControl],"RightClick") ENDIF ENDFOR IF PEMSTATUS( oControl, 'Controls', 5 ) ThisMethodCall( oControl ) ENDIF ENDWITH>Jay,
>* Method thisform.ShowControls >lparameters toControl >local loControl, loPage, loColumn >do case > case Pemstatus(toControl, 'Controls', 5) > for each loControl in toControl.Controls > ? 'Control:', loControl.Name > thisform.ShowControls(loControl) > endfor > case Pemstatus(toControl, 'Columns', 5) > for each loColumn in toControl.Columns > ? 'Column:', loColumn.Name > thisform.ShowControls(loColumn) > endfor > case Pemstatus(toControl, 'Pages', 5) > for each loPage in toControl.Pages > ? 'Page:', loPage.Name > thisform.ShowControls(loPage) > endfor >endcase >? 'Object:', toControl.Name >>