Stephen: Is this a conversion from a DOS app? Just to let you know
that "screen restore on/off" does nothing in the 7.6 version so you might
as well take that out of the eep. You should also consider replacing
the "skip" commands with "property componentid set_focus true". The
"skip" is really old school, and you never know whether it might become
unsupported at some point in the future. It always pays to use current
syntax!
I think that "lastkey" is also a command that was meant to trap just for
keystrokes, not for mouse clicks. Could be wrong, though. Don't think
I've used lastkey since 6.5 days.
Not sure what you're trying to accomplish with the mouse click thing, so
I can't answer that... Sorry.
Karen
> Is there a way to get a form that pops up in 7.6 to close with a mouse
> click after opened with a mouse click?
>
> The command I am using is below:
>
> -- NABDispy.ent
>
> -- This entry eep is for displaying the new customer special
>
> -- instructions form as of 11-5-08 - Steve Breen
>
> -- assumes that the variable this_custnub2 is generated on form entry
>
>
>
> set var vlastkey0 = (lastkey(0))
>
>
>
> if vlastkey0 = '[mousebutton1]' then
>
> recalc
>
> recalc var
>
> screen restore off
>
> edit using NABInfo where custnub2 = .This_Custnub2
>
> screen restore on
>
> skip 2
>
> endif
>
>
>
> if vlastkey0 in ('[shift][tab]', '[up]') then
>
> skip -1
>
> else
>
> skip 1
>
> endif
>
>
>
> return
>
> Thanks for the help
>
>
