FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cVar := SPACE( 30 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar

    oDlg:bStart = { || oGet:PostMsg( WM_CHAR, "A" ) }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

    oDlg:bStart = { || oGet:PostMsg( WM_CHAR, Asc( "A" ) ) }