🚀 go-pugleaf

You need to call the SetWindowPos API. I have a routine called AlwaysOnTop
that I pass the hWnd of the form and a value of true or false to determine
whether it should be on top or not.

Declare Function SetWindowPos Lib "user" (ByVal h%, ByVal hb%, ByVal X%,
ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer

Sub AlwaysOnTop (ByVal hWnd As Integer, OnTop As Integer)

    Const SWP_NOMOVE = 2
    Const SWP_NOSIZE = 1
    Const Flags = SWP_NOMOVE Or SWP_NOSIZE
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    Dim rc As Integer

    If OnTop Then
        rc = SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)    '
Returns <> 0 on success
    Else
        rc = SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags)
    End If
    
End Sub

Bryan Elder


Jason Kohlhagen <hagen@fullcomp.com.au> wrote in article
<6bb8k6$r4l$1@demeter.omen.com.au>...
> I'm writing a little menu for my computer and want it to always stay on
top.
> However I can't find the code or instructions on how to do that anywhere.
> Would someone be able to help me please ?   :)
> 
> 
>