#PB_EventGadged in PureBasic 4

[ts-soft]

1. WaitWindowEvent() vor EventGadget(), und ohne timeout von 0
2. Abfragen, ob dies ein Gadget oder sonstwas Ereignis ist, dann erst vergleichen
usw. ...
Hat aber alles nichts mit PB4 zu tun, war in PB3.... auch schon so

Code: Alles auswählen

OpenWindow(0,0,0,800,700,"Bla",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
 
CreateGadgetList(WindowID(0))
ButtonGadget(1,20,20,100,20,"Test1")
ButtonGadget(2,20,40,100,20,"Test2")
 


  Repeat
   
     WaitWindowEvent = WaitWindowEvent()     
     EventGadget     = EventGadget()
     
     If WaitWindowEvent = #PB_Event_Gadget
     
       If EventGadget = 1
        MessageRequester("Ze Fix Scheiss Ding", "funz endlich richtig",#PB_MessageRequester_Ok)
       EndIf
     
       If EventGadget = 2
        MessageRequester("Verdammt", "funz endlich richtig",#PB_MessageRequester_Ok)
       EndIf  
            
   EndIf
Until WaitWindowEvent = #PB_Event_CloseWindow

End 

[Slut-Hunter]

OMG bin ich blöd, daß ich da nicht drauf gekommen bin*, jetzt schäm ich mich gleich noch mehr in Grund und Boden.

Progge jetzt seit nem halben Jahr, und hätte es eigentlich schaffen müssen.

Das von dir, funzt einwandfrei. Danke