Buttonabfrage

[Wespe23]

Hallo zusammen.
Ich habe noch wirklich nicht viel mit Window-GUI gearbeitet, also möchte ich Fragen, wie man abfragen kann, ob ein Button gedrückt ist. So sieht's momentan bei mir aus:

Code: Alles auswählen

If OpenWindow(0,0,0,600,600,  #PB_Window_SystemMenu | #PB_Window_TitleBar,"Test") And CreateGadgetList(WindowID())
  ButtonGadget(0,100,100,200,50,"Test-Button 1")
  ButtonGadget(1,100,300,200,50,"Test-Button 2")
    Select EventGadgetID()
     Case 0
      MessageRequester("Info","Button 1 wurde gedrückt",0)
      End
     Case 1
      MessageRequester("Info","Button 2 wurde gedrückt",0)
      End
    EndSelect
EndIf
End

Nu ja funktionieren tut's nich

[ts-soft]

Du fragst ja das WindowsEreignis garnicht ab !

Code: Alles auswählen

If OpenWindow(0,0,0,600,600,  #PB_Window_SystemMenu | #PB_Window_TitleBar,"Test") And CreateGadgetList(WindowID())
  ButtonGadget(0,100,100,200,50,"Test-Button 1")
  ButtonGadget(1,100,300,200,50,"Test-Button 2")
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Gadget
        Select EventGadgetID()
         Case 0
          MessageRequester("Info","Button 1 wurde gedrückt",0)
          End
         Case 1
          MessageRequester("Info","Button 2 wurde gedrückt",0)
          End
        EndSelect
    EndSelect
  ForEver
EndIf
End