FiveTech Support Forums

FUNCTION Main()
   
   LOCAL oDlg
   LOCAL oGet
   LOCAL cGet := "test"
   LOCAL oCheck2
   
   SetCancel( .T. )
   
   DEFINE DIALOG oDlg size 400, 400 TITLE "A Dialog Box"

   @  2,  2 GET oGet VAR cGet OF oDlg
   oGet:bLostFocus := { || Show_Focus( oDlg, oGet, cGet ) }
   
   @  3,  2 CHECKBOX oCheck2 PROMPT "This is  a second CHECKBOX" OF oDlg

   @  5,  4 BUTTON "&Ok" OF oDlg SIZE 40, 12 ACTION oDlg:End()

   @  5, 15 BUTTON "&Cancel" OF oDlg SIZE 40, 12 ACTION oDlg:End()

   ACTIVATE DIALOG oDlg
   
RETURN NIL

FUNCTION Show_Focus( oDlg, oGet, cGet )
   LOCAL i
   LOCAL lReturn := .F.

   i := AScan( oDlg:aControls, { | o | o:lFocused } )
   IF i > 0
     nMsgBox( "Dialog element '" + oDlg:aControls[ i ] :cCaption + "' has the focus"  )
   ELSE
    nMsgBox( "Can't determin focus!" )
   ENDIF
RETURN lReturn