Code: Alles auswählen
If OpenWindow(1,500,200,450,200,"","......")
CreateGadgetList(1)
ButtonGadget(1,400,150,100,20,".......")
EndIf
Code: Alles auswählen
If OpenWindow(1,500,200,450,200,"","......")
CreateGadgetList(1)
ButtonGadget(1,400,150,100,20,".......")
EndIf
Code: Alles auswählen
If OpenWindow(1, 500,200,450,200, #PB_Window_SystemMenu, "Fenster Title")
CreateGadgetList(WindowID(1))
ButtonGadget(1,400,150,100,20,"Button Text")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_EventGadget
Select EventGadgetID()
Case 1
Debug "Button Gedrückt"
EndSelect
EndSelect
Until Event = #PB_EventCloseWindow
EndIf