; www.purearea.net (Sourcecode collection by cnesm) ; Author: ; Date: 22. November 2003 Global Hwnd.l,OldProc.l hInstance = GetModuleHandle_(0) Procedure ChildCallback(Window, Message, wParam, lParam) Result = CallWindowProc_(OldProc,Window,Message,wParam,lParam) Select Message Case #WM_CLOSE Destroywindow_(Window) EndSelect ProcedureReturn Result EndProcedure Hwnd.l = OpenWindow(0, 0,0,640,480, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "Ich habe ein Kindfenster") If Hwnd Style.l = #WS_POPUP|#WS_CHILD|#WS_CLIPCHILDREN|#WS_VISIBLE|#WS_CAPTION|#WS_SYSMENU|#WS_MAXIMIZEBOX|#WS_MINIMIZEBOX Child.l = CreateWindowEx_(0,"#32770","Ich bin das Kind",Style,0,0,320,240,0,0,hInstance,0) OldProc = SetWindowLong_(Child,#GWL_WNDPROC,@ChildCallback()) SetParent_(Child,Hwnd) Repeat EventID.l = WaitWindowEvent() If EventID = #PB_Event_CloseWindow ; If the user has pressed on the close button Quit = 1 EndIf Until Quit = 1 EndIf End ; ExecutableFormat=Windows ; DisableDebugger ; EOF