Always on top

BlitzMax Forums/MaxGUI Module/Always on top

Volker

(Posted 2010) [#1]

Is there a way to keep a window always on top?
I have a program running in the tray
which shall inform the user that an action has started.

Chalky

(Posted 2010) [#2]

Import maxgui.drivers

Const HWND_TOP:Int=0
Const HWND_TOPMOST:Int=-1

Local MyWin:TGadget = CreateWindow("Always On Top",100,100,400,300)
Local hwnd:Int = QueryGadget(MyWin,QUERY_HWND)
SetWindowPos(hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE)

While WaitEvent()
	If EventID() = EVENT_WINDOWCLOSE
		End
	EndIf
Wend

Volker

(Posted 2010) [#3]

Nice, thanks.