FiveTech Support Forums

Hi,
Input chars to btnget, call from Tget.prg,

METHOD KeyDown( nKey, nFlags ) CLASS TGet

add the lines compare to v7.11
if ::bKeyDown != nil
if Eval( ::bKeyDown, nKey, nFlags, Self ) == 0 //Runtime Error description: Error BASE/1070 Argument error: ==
return 0
endif
endif

Best Regards!
Shuming Wang

Shuming,

You have to modify bKeyDown in BtnGet so it returns nil or a number

Antonio,
Done.
Thanks !
Shuming Wang