button klicken

[Mathias-Kwiatkowski]

wie bekomme ich das nochmal hin ?

#beenden ist ein button, wenn man darauf klickt soll er halt beenden



Repeat
EventID = WindowEvent()

If EventID<>0
If #beenden
End
EndIf
EndIf


Until EventID = #PB_Event_CloseWindow
End


so gehts leider nicht

[Kiffi]

Code: Alles auswählen

Enumeration
  #Window
  #Button
EndEnumeration

If OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 300, 300, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
  If CreateGadgetList(WindowID(#Window))
    ButtonGadget(#Button, 5, 5, 290, 290, "Beenden")
    
    Repeat
      
      WaitWindowEvent = WaitWindowEvent()
      EventGadget = EventGadget()
      
      Select WaitWindowEvent
        
        Case #PB_Event_Gadget
          Select EventGadget
            
            Case #Button
              Quit = #True
              
          EndSelect
          
        Case #PB_Event_CloseWindow
          Quit = #True
          
      EndSelect
      
    Until Quit = #True
    
  EndIf
EndIf

Grüße ... Kiffi

[a14xerus]

Oder mit if:

Code: Alles auswählen

  Event = WaitWindowEvent(10)
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
  MenuID = EventMenu()


If Event
  If Event = #PB_Event_Menu
    If MenuID = #Menueintrag01
    ;...
    Endif 
  
  ElseIf Event = #PB_Event_Gadget
    If GadgetID = #Gadget01
    ;...
    Elseif Gadgetid = #gadget01
    ;...
    Endif 
  Endif
Endif 

[Kiffi]

> wie bekomme ich das nochmal hin ?

sich mal zu bedanken tut nicht weh.