FiveTech Support Forums

METHOD GoNextCtrl( hCtrl ) CLASS TWindow

   local hCtlNext, nAt
   
   if ! Empty( ::aControls ) .and. hCtrl == ::LastActiveCtrl():hWnd .and. ;
      ! Empty( ::oWnd ) .and. ( ( Upper( ::oWnd:ClassName() ) $ "TFOLDER;TPAGES;TFOLDEREX" ) )
      hCtlNext = NextDlgTab( ::oWnd:oWnd:hWnd, ::oWnd:hWnd )
      ::hCtlFocus = hCtrl
      SetFocus( hCtlNext )
   else
      nAt = AScan( ::aControls, { | o | o:hWnd == hCtrl } )
      if nAt != 0
         nAt = If( nAt < Len( ::aControls ), nAt + 1, 1 )
         while ! lAnd( GetWindowLong( ::aControls[ nAt ]:hWnd, GWL_STYLE ), WS_TABSTOP ) .or. ;
               ! IsWindowEnabled( ::aControls[ nAt ]:hWnd )
            nAt = If( nAt < Len( ::aControls ), nAt + 1, 1 )
         end
         SetFocus( ::aControls[ nAt ]:hWnd )
      endif
   endif

return nil

#include "FiveWin.ch"

function Main()

   local oDlg, oCbx, cValue := "One"

   DEFINE DIALOG oDlg
   
   @ 1, 2 COMBOBOX oCbx VAR cValue ITEMS { "One", "Two", "Three" }
   
   @ 3, 2 BUTTON "OK"

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( ATail( oDlg:aControls ):SetFocus(), SysRefresh(), SendKey( VK_TAB ), .F. )          
   
return nil