if( !DoDefault() ) return .f. endif #define WM_KEYUP 0x0101 =bindevent(m.this.hwnd, WM_KEYUP, m.this, 'KeyUp', 0) declare long GetAsyncKeyState in user32.dll long nkeyIn the Unload()
=unbindevents(m.this.hwnd) return dodefault()Add a method KeyUp
lparameters hwnd, msg, wparam, lparam #define ASCII_0 0x30 #define ASCII_1 0x31 #define ASCII_9 0x39 #define VK_CONTROL 0x11 do case case !m.this.KeyPreview case !between(m.wparam, ASCII_1, ASCII_9) case !bittest(GetAsyncKeyState(VK_CONTROL), 15) case !RaiseEvent(m.this, 'KeyPress', m.wparam, 2) endcase