Hi all ,


I have a container.
I want to redirect the method gotfocus of ALL objects in a container.

With this code , only 3 containers are redirect.


*-- Code contenu dans L'init() du container.
*

LOCAL loObjet , loControl
* 08/2009
COMPT = 0
*---------------------------------------------------------------------------------
FOR EACH loObjet IN THIS.OBJECTS
 *--------------------------------------------------------------------------------- 
IF PEMSTATUS( loObjet,'GotFocus',5)  
* 0 00 Call delegate code before event code. (Default)  
* 1 01 Call event code before delegate code.  
* 2 10 Do not trigger event (call delegate code) when a simple method calloccurs. 

 BINDEVENT( loObjet ,"GotFocus" , THIS, "GotFocus" , 0 )  

ENDIF

ENDFOR