FiveTech Software tech support forums

Posted: **Thu Sep 02, 2021 7:35 am**

The following sample works fine with xHarbour (insert an A in the GET) while only beeps with Harbour. Any ideas or workaround?

Code: Select all | Expand

#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

EMG

Posted: **Thu Sep 02, 2021 9:42 am**

Dear Enrico, you are right, please try with

Code: Select all | Expand


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

Posted: **Thu Sep 02, 2021 9:52 am**

Thank you, it works! Definitely my fault.

EMG

FiveTech Software tech support forums

Problem with GET and Harbour

Problem with GET and Harbour

Re: Problem with GET and Harbour

Re: Problem with GET and Harbour