Code: Alles auswählen
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
windowex = CreateWindowEx_(#WS_EX_CLIENTEDGE,"Button","",#WS_VISIBLE|#WS_POPUP|#BS_OWNERDRAW,100,100,100,20,WindowID(0),0,GetModuleHandle_(0),0)
If CreateMenu(1,windowex)
MenuTitle("Menü")
MenuItem(1,"Item",0)
EndIf
SetParent_(windowex,WindowID(0))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
