XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Abfragen über %MenuItem
Mit el Abfrage de IDs über %MENUITEM läßt se una Menge Abfragearbeit ersparen.
Hier en el Ejemplo reagieren drei Eingabeelemente (Systemmenü, Menüpunkt, Button)
en el selbe Abfrage. Buttons reagieren außerdem mejor como con GetFocus.
de Andreas Hötker
DECLARE BEENDEN&
WINDOWSTYLE 31+512
WINDOWTITLE IDs - qué kann uno así tun?
WINDOW 0,0-640,440
POPUP &Programa
Appendmenu 2,&final
Imprimir Der Ver código fuente zeigt el Abfragen de Eingabeelementen über el ID.
Imprimir Hier: Drei Elemente reagieren en el gleiche Abfrage!
PRINT El ID des angeklickten Elements läßt se muy simplemente über
PRINT %MENUITEM ermitteln.
LET BEENDEN&=@Control(Button,Programa final,$40000000+$10000000,120,280,200,30,%HWND,2,%HINSTANCE)

WHile 0=0

    WAITINPUT

    IF @ABS(%MENUITEM)=2

        Setmenuitem 0
        @Messagebox(Programa se final!,Referencia,64)
        FIN

    endif

endwhile