Hilfe
EnableMenu
Aufruf
Parameter
Rückgabewert
Beschreibung
Beispiel
Siehe auch
EnableMenu menü
Parameter
menü | Identität eines Menüs |
Rückgabewert
-
Beschreibung
Die Anweisung EnableMenu schaltet ein Menü ein. Dadurch werden alle Eingaben wieder zugelassen und zusätzlich werden Events zurückgeliefert. DisableMenu ist eine Umkehrung zu diesem Befehl.
UpdateWindowMenu
muss auf jeden Fall aufgerufen werden - da das Menü sonst nicht geändert wird.


Beispiel
Standardbeispiel:
window = CreateWindow("Window", 50, 50, 200, 200, 0, 5)
menu1 = CreateMenu("Alien", 1, WindowMenu(window))
menu2 = CreateMenu("Mensch", 2, WindowMenu(window))
menu3 = CreateMenu("Mensch ausschalten", 3, menu1)
menu4 = CreateMenu("Alien ausschalten", 4, menu2)
UpdateWindowMenu window
Repeat
If WaitEvent(1) = $1001 Then
Select EventData()
Case 3
value = MenuChecked(menu3)
If value = 0 Then CheckMenu(menu3) : DisableMenu menu4
If value = 1 Then UncheckMenu(menu3) : EnableMenu menu4
UpdateWindowMenu window
Case 4
value = MenuChecked(menu4)
If value = 0 Then CheckMenu(menu4) : DisableMenu menu3
If value = 1 Then UncheckMenu(menu4) : EnableMenu menu3
UpdateWindowMenu window
End Select
EndIf
If KeyHit(1) = 1 Then End
Forever
menu1 = CreateMenu("Alien", 1, WindowMenu(window))
menu2 = CreateMenu("Mensch", 2, WindowMenu(window))
menu3 = CreateMenu("Mensch ausschalten", 3, menu1)
menu4 = CreateMenu("Alien ausschalten", 4, menu2)
UpdateWindowMenu window
Repeat
If WaitEvent(1) = $1001 Then
Select EventData()
Case 3
value = MenuChecked(menu3)
If value = 0 Then CheckMenu(menu3) : DisableMenu menu4
If value = 1 Then UncheckMenu(menu3) : EnableMenu menu4
UpdateWindowMenu window
Case 4
value = MenuChecked(menu4)
If value = 0 Then CheckMenu(menu4) : DisableMenu menu3
If value = 1 Then UncheckMenu(menu4) : EnableMenu menu3
UpdateWindowMenu window
End Select
EndIf
If KeyHit(1) = 1 Then End
Forever
Siehe auch
CheckMenu, CreateMenu, DisableMenu, MenuChecked, MenuEnabled, MenuText, SetMenuText, UncheckMenu, UpdateWindowMenu, WindowMenu

