Window Focus

Just starting out? Need help? Post your questions and find answers here.
..::Origin::..
Enthusiast
Enthusiast
Posts: 125
Joined: Sat Jun 17, 2006 3:15 pm

Window Focus

Post by ..::Origin::.. »

I'm not entirely sure on what people call this, But I'll try to explain what i am looking for.

Say for instance, You have a normal window open in Windows XP. Gasp! A popup! (MessageRequester, in this situation) I'll just drag it out of the way and keep --- What? The popup still has focus no matter how much i click the window? Perhaps if i close the popup it will regain focus in the way i want! *Click's "OK"*, It works! Gasp!

-- Yeah, Anyway... What I'm trying to figure out is how i can do that with Two Windows, Window A - Opens Window B, Window A - Can't be used until Window B is closed. If someone could kick me in the right direction that would be great.

Hope someone can make sense of this. :roll:

- CaD3X
User avatar
Fluid Byte
Addict
Addict
Posts: 2336
Joined: Fri Jul 21, 2006 4:41 am
Location: Berlin, Germany

Post by Fluid Byte »

Code: Select all

OpenWindow(0,0,0,320,240,"parent",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(0,10,10,100,25,"Show Popup")

Repeat
	EventID = WaitWindowEvent()
	
	If EventID = #PB_Event_Gadget
		If EventGadget() = 0
			DisableWindow(0,1)
			OpenWindow(1,0,0,250,120,"Popup",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)		
			CreateGadgetList(WindowID(1))
			ButtonGadget(1,10,10,100,25,"Close Popup")
		ElseIf	EventGadget() = 1
			DisableWindow(0,0)
			CloseWindow(1)
		EndIf
	EndIf
	
	If EventID = #PB_Event_CloseWindow
		Select EventWindow()
			Case 0 : Quit = 1
			Case 1
			DisableWindow(0,0)
			CloseWindow(1)
		EndSelect
	EndIf
Until Quit = 1
Windows 10 Pro, 64-Bit / Whose Hoff is it anyway?
..::Origin::..
Enthusiast
Enthusiast
Posts: 125
Joined: Sat Jun 17, 2006 3:15 pm

Post by ..::Origin::.. »

Ah! Brilliant thank you.

Thanks for the fast response also. :)
Post Reply