FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oGet1 , cGet1 := SPACE(10)
    LOCAL oGet2 , cGet2 := SPACE(10)

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet1 VAR cGet1 VALID .F.

    oGet1:bKeyDown = { | nKey | MyFunction( nKey ) }

    @ 2, 1 GET oGet2 VAR cGet2

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION MYFUNCTION( nKey )

    STATIC nSec

    IF nKey = VK_RETURN
        IF nSec = NIL
            nSec = SECONDS()
        ELSE
            IF SECONDS() - nSec <= 0.2
                nSec = NIL

                ? "Double enter pressed"
            ELSE
                nSec = SECONDS()
            ENDIF
        ENDIF
    ELSE
        nSec = NIL
    ENDIF

    RETURN NIL