Конец перетаскивания формы за любое место

[Space]

в событие MouseDown ложу код:

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

Dim lRet As Long
'перетаскивать форму за любое место
    If Button = 1 Then
     Call ReleaseCapture
     lRet = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If

но как я понимаю, из-за ReleaseCapture не возникает событие MouseUp. А мне надо отлавливать конец перемещения. И ещё, если MouseUp получиться отловить, форма в нём будет иметь уже новые координаты или до перемещения? Вообщем, мне нужно поймать момент конца перемещения формы с её новыми координатами.

[Хакер]

Я бы на твоём месте реализовал перетаскивание вручную. Кто знает, к чему может привести обман системы.

[arvitaly]

во первых, Хакер, почему же обманывать
http://support.microsoft.com/kb/173773
во вторых, Space

Все просто
после строчки

lRet = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

, будет срабатывать отпускание мыши, так как sendmessage ждет конца выполнения команды