Klick auf MenuTitle detektieren

[Daffy0815]

Hallo,

wie kann man einen Klick auf einen Menütitel wie im folgenden Beispiel detektieren?
Ein rein horizontales Menü ohne "MenuItems".
Mit EventMenu gings irgendwie nicht.

Code: Alles auswählen

If OpenWindow(0, 200, 200, 300, 200, "Test")
    If CreateMenu(0, WindowID(0))
      MenuTitle("Erster Eintrag")
      MenuTitle("Zweiter Eintrag")
      MenuTitle("Dritter Eintrag")
    EndIf
    Repeat 
      
      
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Gruß

Daffy

[RSBasic]

Ganz einfach:

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If CreateMenu(0, WindowID(0))
    MenuItem(1, "Erster Eintrag")
    MenuItem(2, "Zweiter Eintrag")
    MenuItem(3, "Dritter Eintrag")
  EndIf
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Menu
      Select EventMenu()
        Case 1
          Debug "Erster Eintrag"
        Case 2
          Debug "Zweiter Eintrag"
        Case 3
          Debug "Dritter Eintrag"
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

[Daffy0815]

Danke!

Die Verknüpfung mit dem Window in dem das Menü sich befindet muss man also in die Schleife "selbst" einbauen falls es mehrere Fenster mit solchen Menüs gibt.
Ich dachte man würde die Referenz über die ID des Menüs herstellen.

Also praktisch so:

Code: Alles auswählen

EnableExplicit

Define EventID
#WindowNum = 10
#MenuNum=20

If OpenWindow(#WindowNum, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If CreateMenu(#MenuNum, WindowID(#WindowNum))
    MenuItem(1, "Erster Eintrag")
    MenuItem(2, "Zweiter Eintrag")
    MenuItem(3, "Dritter Eintrag")
  EndIf
 
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Menu
        If GetActiveWindow() = #WindowNum
          Select EventMenu()
            Case 1
              Debug "Erster Eintrag"
            Case 2
              Debug "Zweiter Eintrag"
            Case 3
            Debug "Dritter Eintrag"
        EndSelect
      EndIf
    EndIf  
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

Gruß

Daffy

[ts-soft]

Ich dachte man würde die Referenz über die ID des Menüs herstellen.

Nein, über die WindowID() dahinter

[Daffy0815]

Kann man in ein solches, rein horizontales Menü eigentlich auch einen Trenner einfügen?
MenuBar() zeigt hier keine Wirkung!

Gruß

Daffy

[RSBasic]

MenuBar() erstellt eine horizontale Linie zwischen zwei MenuItems in einem aufgeklappten Menü.


Ansonsten wenn kein MenuTitle() angegeben wird, dann wird ein Zwischenraum (vertikal) eingefügt.


Wie sieht dein Code aus und was möchtest du genau?
Wo soll ein Trenner eingefügt werden? Im aufgeklappten Menü oder direkt in der Menüzeile zwischen zwei MenuItems/MenuTitles?

PS: Das nächste Mal bitte einfach ein neues Thema eröffnen. Es hat nichts mehr mit dem Thema "Klick auf MenuTitle" zu tun! Denk bitte daran! Sonst wirds einfach unüberslichlich, wenn jemand im Forum was suchen möchte.