PureBasic Forums - English

Code: Select all

If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0
  End
EndIf

SetParent_(WindowID(0), GetShellWindow_())

ButtonGadget(0, 0, 0, 100, 100, "Button")

Repeat
  Event = WaitWindowEvent()
  
		Case #PB_Event_Gadget
      Select EventGadget() ; Gadgets
 				Case 0
					Debug "OK"
			EndSelect
	EndSelect
  
Until Event = #PB_Event_CloseWindow

Code: Select all

;
; Force a window to stay in the background
;
Procedure Callback(WindowID, message, wParam, lParam) 
  Protected *WindowPos.WINDOWPOS 
  Result = #PB_ProcessPureBasicEvents 
  ; 
  If message = #WM_WINDOWPOSCHANGING ; Window position is about to change !
    *WindowPos = lParam 
    *WindowPos\hwndInsertAfter = #HWND_BOTTOM   ; <-- Forces the window to stay in the background
  EndIf 
  ; 
  ProcedureReturn Result 
EndProcedure 

If OpenWindow(0, 450, 200, 400, 400, "Reste dans le fond même si a le focus", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar) 
  
  SetWindowCallback(@Callback(), 0) 
  SetWindowPos_(WindowID(0), #HWND_BOTTOM, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE) ; Forces the window to stay in the background the 1st time
  
  Repeat 
    Event = WaitWindowEvent() 
    Select Event 
      Case #PB_Event_CloseWindow 
        Break 
    EndSelect 
  ForEver
EndIf