OpenEuphoria

Re: Win32lib focus problem

• Posted by Greg Haberek <ghaberek at gmail.com> Dec 05, 2004
• 453 views

> }}}
<eucode>
> 
> without warning
> include win32lib.ew
> integer main, mle, msgedit
> 
> main = create(Window, "Click in the one-line text-edit and press enter", 0,
> 200, 200, 500, 300, 0)
> 
> mle = create(MleText, "", main, 0, 0, 450, 100, 0)
> msgedit = create(EditText, "", main, 0, 150, 450, 23, 0)

I'm not sure why this happens, but add this, I tested it and it works.

procedure msgedit_keypress( integer self, integer event, sequence params )

    if params[1] = VK_RETURN then
        -- ignore the Enter key
        returnValue(-1)
    end if

end procedure
setHandler( msgedit, w32HKeyPress, routine_id("msgedit_keypress") )

> WinMain(main, Normal)
> 
> </eucode>
{{{


~Greg