Code: Alles auswählen
Procedure Fenster(dyffr.l)
If OpenWindow(4, 216, 0, 483, 98, "test", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
TextGadget(1, 10, 15, 90, 20, "test:")
EndIf
Repeat
EventIDD = WaitWindowEvent(1)
If EventIDD = #PB_Event_Gadget
Select EventGadget()
EndSelect
EndIf
Until EventIDD = #PB_Event_CloseWindow
EndProcedure
#WindowWidth = 390
#WindowHeight = 350
If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight, "PureBasic - Gadget Demonstration", #PB_Window_MinimizeGadget)
ButtonGadget(1, 223, 6, 72, 20, "Play")
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case 1
CodeThread = CreateThread(@Fenster(), 77)
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf Der Debugger meldet EventID = Invalid Memory Accesss
Ich habe gedacht, man man mehrere Fenster in PB öffnen.
