XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Abfragen über %MenuItem
avec qui Abfrage de IDs über %MENUITEM läßt sich une la quantité Abfragearbeit ersparen.
ici im Beispiel réagir trois Eingabeelemente (Systemmenü, Menüpunkt, Button)
sur qui selbe Abfrage. Buttons réagir aussi besser comme avec GetFocus.
de Andreas Hötker
DECLARE BEENDEN&
WINDOWSTYLE 31+512
WINDOWTITLE IDs - quoi peux on avec cela 1faire?
WINDOW 0,0-640,440
POPUP &Programme
Appendmenu 2,&finissons
Imprimer qui Voir le texte source zeigt cela Abfragen de Eingabeelementen über qui ID.
Imprimer ici: trois Elemente réagir sur qui gleiche Abfrage!
PRINT qui ID des angeklickten Elements läßt sich très simple über
PRINT %MENUITEM ermitteln.
LET BEENDEN&=@Contrôle(Button,Programme finissons,$40000000+$10000000,120,280,200,30,%HWND,2,%HINSTANCE)

WHile 0=0

    WAITINPUT

    IF @ABS(%MENUITEM)=2

        Setmenuitem 0
        @Messagebox(Programme wird finissez!,Hinweis,64)
        FIN

    endif

endwhile