Abfragen über %MenuItem

'Abfragen über %MenuItem

Beitrag, 15.07.2007 21:57: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Abfragen über %MenuItem 'Mit der Abfrage von ID's über %MENUITEM lässt sich eine Menge Abfragearbeit ersparen. 'Hier im Beispiel reagieren drei Eingabeelemente (Systemmenü, Menüpunkt, Button) 'auf die selbe Abfrage. Buttons reagieren ausserdem besser als mit GetFocus. 'von Andreas Hötker DECLARE BEENDEN& WINDOWSTYLE 31+512 WINDOWTITLE "ID's - was kann man damit tun?" WINDOW 0,0-640,440 POPUP "&Programm" Appendmenu 2,"&beenden" Print "Der Quelltext zeigt das Abfragen von Eingabeelementen über die ID." Print "Hier: Drei Elemente reagieren auf die gleiche Abfrage!" PRINT "Die ID des angeklickten Elements lässt sich sehr einfach über" PRINT "%MENUITEM ermitteln." LET BEENDEN&=@Control("Button","Programm beenden",$40000000+$10000000,120,280,200,30,%HWND,2,%HINSTANCE) WHile 0=0 WAITINPUT IF @ABS(%MENUITEM)=2 Setmenuitem 0 @Messagebox("Programm wird beendet!","Hinweis",64) END endif endwhile

Dies ist die Offlinevariante vom Thread [Abfragen über %MenuItem].