Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Redirect the method gotfocus of ALL objects in a contain
Message
From
28/07/2009 13:14:40
Bernhart Milcent
Amline S.A.
Oupeye, Belgium
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Redirect the method gotfocus of ALL objects in a contain
Miscellaneous
Thread ID:
01414786
Message ID:
01415106
Views:
43
Hi naomi,

super !
Your code is very good.

It is very kind of you


bernhart
LPARAMETERS locontainer

LOCAL loObjet ,;
 loControl
* 07/2009 UT NAOMI
*----------------------------------------------------------------------------
*----------------------------------------------------------------------------
FOR EACH loObjet IN locontainer.OBJECTS FOXOBJECT
 *---------------------------------------------------------------------------
 IF PEMSTATUS( loObjet, 'OBJECTS',5 )
  THIS.bindeventgotfocus( loObjet )
 ELSE
  *--------------------------------------------------------------------------
  IF PEMSTATUS( loObjet,'GotFocus',5)
   BINDEVENT( loObjet ,"GotFocus" , THIS, "GotFocusForChildObject" , 0 )
  ENDIF  && PEMSTATUS( loObjet,'GotFocus',5)
  *--------------------------------------------------------------------------
 ENDIF && PEMSTATUS( loObjet, 'OBJECTS',5 )
 *---------------------------------------------------------------------------
ENDFOR
*---------------------------------------------------------------------------
*---------------------------------------------------------------
.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform