15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как поместить форму поверх других форм

 

    'Поместите в модуль
    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 Const HWND_NOTOPMOST = -2
    Public Const HWND_TOPMOST = -1
    Public Const SWP_NOACTIVATE = &H10
    Public Const SWP_NOMOVE = &H2
    Public Const SWP_NOSIZE = &H1

    Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean) 
          If TopPosition Then 
               SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, _ 
                            SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE 
           Else 
               SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, _
                            SWP_NOSIZE Or SWP_NOMOVE 
           End If 
    End Sub
 
    'Поместите на форму в любой процедуре
     call SetFormPosition(Me.hwnd, True)