sound on key press

[MdaSolution]

How I can insert a sound when I press a key and I use a Tget control ?

[MarcoBoschi]

#include "Fivewin.ch"

FUNCTION MAIN()

LOCAL oDlg

LOCAL oGet1, cVar1 := SPACE( 10 )

REQUEST HB_GT_GUI_DEFAULT // for tone usage

DEFINE DIALOG oDlg

@ 1 , 1 GET oGet1 VAR cVar1 OF oDlg

// oGet1:bKeyChar = { || tone(100,.1) }
oGet1:bKeyChar = { || messagebeep() }

ACTIVATE DIALOG oDlg CENTER

RETURN NIL

[MdaSolution]

Mr Marco,

REDEFINE GET oMss VAR cMss ID 130 MEMO OF oDlm
oMss:bKeyChar = { || messagebeep() }

NOT RUN !

[MarcoBoschi]

Did you try ?
oMss:bKeyDown = { || messagebeep() }