AccessTr.neT

formu en üstte tutmak için ne yapabiliriz

---

Public Const SWP_NOMOVE = 2

Public Const SWP_NOSIZE = 1

Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Public Const HWND_TOPMOST = -1

Public Const HWND_NOTOPMOST = -2



Public Declare Function SetWindowPos _

               Lib "user32" (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 Long



Public Function AOT(hwnd As Long, Topmost As Boolean) As Long

    If Topmost = True Then

        AOT = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

    Else

        AOT = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)

        AOT = False

    End If

End Function

---

bunu nasıl kullanacağız

SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)

"SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW" kelimeleri ne işe yarıyor

işinizi kod ile yapmanızı takdir ediyorum.
kodu yazan fonksiyon oluşturmuş.
fakat basit bir yolu var bu işin.
form özelliklerinden.
kalıcı= evet
açılan=evet
yapmanız yeterli.

Aynı işi görmüyorlar

her zaman üstte kalmasını istiyorsanız.
başka