Topmost windows

Topmost windows

This is an evergreen, but it’s still popular. It is very easy to create a window that always stays on top of the others, thanks to the SetWindowPos API function. Here is a general procedure that can be called to make a form the topmost window and to revert to the normal status. This capability is extremely useful when implementing palettes, tool windows and the like.

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal _    hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _    ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _    ByVal wFlags As Long) As LongSub SetTopmostWindow(ByVal hWnd As Long, Optional topmost As Boolean = True)    Const HWND_NOTOPMOST = -2    Const HWND_TOPMOST = -1    Const SWP_NOMOVE = &H2    Const SWP_NOSIZE = &H1    SetWindowPos hWnd, IIf(topmost, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, _        SWP_NOMOVE + SWP_NOSIZEEnd Sub

When you wish to create a topmost window simply call this procedure passing the handle of the window:

SetTopmostWindow Me.hWnd

When you want to return to the normal status, call the same function passing False as the second argument:

SetTopmostWindow Me.hWnd, False

You do not need to explicitly revert to the normal status before closing the window.

See also  How College Students Can Shape the Future of Tech Responsibility

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist