XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
IDs inquire über %MenuItem
with the request of IDs über %MENUITEM can itself a crowd Abfragearbeit save.
here in the example react three Input-Elements (System Menu, exhaust, Button)
on The same request. Buttons react moreover rather as with GetFocus.
of Andreas Hötker
DECLARE BEENDEN&
WINDOWSTYLE 31+512
WINDOWTITLE IDs - what can one so do?
WINDOW 0,0-640,440
POPUP &Program
Appendmenu 2,&terminate
Print The View source shows the inquire of Input-Elements über The ID.
Print here: three items react on The same request!
PRINT The ID the angeklickten Elements can itself very simply über
PRINT %MENUITEM detect.
LET BEENDEN&=@Control(Button,Program terminate,$40000000+$10000000,120,280,200,30,%HWND,2,%HINSTANCE)

WHile 0=0

    WAITINPUT

    IF @ABS(%MENUITEM)=2

        Setmenuitem 0
        @Messagebox(Program becomes exits!,Info,64)
        END

    endif

endwhile