FiveTech Support Forums

METHOD GotFocus(hWndLoseFocus) CLASS TWindow

   ::lFocused = .t.

   if ::bGotFocus != nil
      Eval( ::bGotFocus )
   endif

   if ! Empty( ::hCtlFocus )
      if Upper( GetClassName( ::hCtlFocus ) ) $ "SYSTABCONTROL32,TPAGES"
         AEval( ::aControls, {| Ctrl | If( Ctrl:hWnd != ::hCtlFocus, , ;
                  SetFocus( Ctrl:aDialogs[ Ctrl:nOption ]:hCtlFocus ) ) } )
      else
         SetFocus( ::hCtlFocus )
      endif
   else
      if ::aControls != nil .and. Len( ::aControls ) > 0
         if ::aControls[ 1 ] != nil
            ::hCtlFocus = NextDlgTab( ::hWnd ) // , ::aControls[ 1 ]:hWnd )
            //SetFocus( ::hCtlFocus ) <<<<<<<<<<<
         endif
      endif
   endif

return 0   // no standard behavior