Ограничить перемещение окна

[beefon]

Как можно сделать так, чтобы при перемещении какого-либо окна (например того же калькулятора) он "упирался" в границу экрана, а не уходил за нее? В частности, мне нужно, чтобы окна упирались только в границу снизу.

[tyomitch]

WM_WINDOWPOSCHANGING

[beefon]

Это получается все время нужно посылать активному окну?
Ставить таймер?
API-функции такой нет, чтобы вообще всем окнам запретить пересекать границу экрана?

[tyomitch]

Нет, это нужно обрабатывать тому окну, которое не хочет, чтобы его утаскивали за экран.
Если все должны не хотеть, можешь ставить глобальный хук, ага.

[beefon]

Можно более подробно о хуке?

Я сделал через SetWindowPlacement, она в принципе не пускает окно за нижнюю границу экрана, перемещая его вверх, но все это дело моргает, и как-то "куцо" выглядит

[dr.MIG]

Можно более подробно о хуке?

Первое, что попалось под руку http://bbs.vbstreets.ru/viewtopic.php?t=31255, только тебе надо, как уже сказал tyomitch обрабатывать WM_WINDOWPOSCHANGING.
А вообще поиск по SetWindowLong, CallWindowProc и т.д.

[tyomitch]

dr.MIG, как ты предлагаешь ему сабклассить чужие окна?

[dr.MIG]

Вай-вай-вай. Невнимательно прочитал, думал, что речь про своё окно...

[beefon]

Для своего окна граница ставится вот так:

Код: Выделить всё


Option Explicit

Public OldWindowProc As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_WNDPROC = (-4)

Type WINDOWPOS
    hwnd As Long
    hWndInsertAfter As Long
    x As Long
    y As Long
    cx As Long
    cy As Long
    flags As Long
End Type
Public Const WM_WINDOWPOSCHANGING = &H46
Public Const WM_WINDOWPOSCHANGED = &H47

Public Function NewWindowProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
Const WM_NCDESTROY = &H82
Dim new_aspect As Single
    If msg = WM_NCDESTROY Then
        SetWindowLong hwnd, GWL_WNDPROC, OldWindowProc
    End If

    If msg = (WM_WINDOWPOSCHANGING) Then
        If lParam.y >= 600 Then
        lParam.y = 600    'граница на "высоте" 600 пикселей от верха экрана
        End If
    End If

    NewWindowProc = CallWindowProc(OldWindowProc, hwnd, msg, wParam, lParam)
End Function


Код: Выделить всё


Private Sub Form_Load()
    OldWindowProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf NewWindowProc)
End Sub


А как мне "распространить" это на все окна?

[tyomitch]

Если все должны не хотеть, можешь ставить глобальный хук, ага.

[beefon]

Если честно, то я еще не сталкивался с такими задачами.
Ладно, поищу литературу. Может вы что-нибудь посоветуете?

[tyomitch]

Посоветую поиск по форуму. Там всё нужное тебе уже обсуждалось.