Form_FormMove

[Vovik]

Можно ли как-нть сгенерировать данное событие? (только беза таймеров)

[GM]

А сабклассить окно не пробывал

[_Мика_]

А че там делать? Берешь таймер и внем проверяешь Top и Left

[Eugenio]

А сабклассить окно не пробывал

Вот те, собсна, твой сабж, Vovik. Отслеживаем событие WM_MOVE

[GSerg]

Ему не следить, ему генерить...

[Eugenio]

Ему не следить, ему генерить...

Ой.
Ну, это даже проще.

[Ramzes]

Самый просто способ

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

dim n as integer
private sub commnad1_click()
n = 10
me.left = me.left + n
me.top = me.top - n
end sub


[Vovik]

Ему не следить, ему генерить...

Всмысле, при перемещении формы сгенерировать событие...

[Ramzes]

(только беза таймеров)

А чем тебя таймер не устраивает?

[Konst_One]

сделай свой эвент и генери его в коде Form_Move

[Igor_123]

А как насчет SendMessage Me.hwnd, WM_MOVE, и чего-то там в LPARAM И WPARAM

[Ramzes]

Что то я не понял как ты это хочешь сделать, можна пример?

[_Мика_]

Вот пример

[Ramzes]

Дело в том что нужно без таймера, с таймером я и сам могу

[Amed]

Какие проблемы?

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

Private oldTop As Long
Private oldLeft As Long
Private ExitP As Boolean

Private Sub Form_Load()
Me.Show
EventRaiser
End Sub

Private Sub EventRaiser()
oldTop = Me.Top
oldLeft = Me.Left
ExitP = False

Do While Not ExitP
If oldTop <> Me.Top Or oldLeft <> Me.Left Then
MsgBox "Вы передвинули форму!"
End If
oldTop = Me.Top
oldLeft = Me.Left
DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
ExitP = True
End Sub


[Ramzes]

Вот сразу бы так

Amed спасибо, я хоть и не начинал тему, но интересно было до бешанства

[Amed]

А что, принцип-то тот же, как и с таймером

[_Мика_]

А что, принцип-то тот же, как и с таймером

Но все равно

[Ramzes]

Принцип тот-же но таймера нет

[Vovik]

да уж... Предётся наверно использовать таймер, меньше нагружать будет.... У меня еще в цикле вычисления офигенные валят, а тут еще и это опрашивать.... Может вообще форму заллочить?

[Eugenio]

При всем уважении, так и не понял, чем не подходит отслеживание WM_MOVE - извещение о том, что форму передвинули, получаешь немедленно, таймер не нужен.

[Vovik]

При всем уважении, так и не понял, чем не подходит отслеживание WM_MOVE - извещение о том, что форму передвинули, получаешь немедленно, таймер не нужен.

Хотелось бы увидеть пример кода! Как же ты будешь опрашивать, не вызывая функцию ни в цикле, ни в таймере?

[Amed]

Сабклассинг... Хук на WM_MOVE.

Eugenio, приведёшь пример?
Я сейчас тоже поищу и переделаю пример сабклассинга...

[Eugenio]

... Eugenio, приведёшь пример? ..

Щас.. В коде могут быть баги - я только принцип хотел показать (прямо здесь написал)
Сначала перезаписываем адрес оконной процедуры на адрес нашей процедуры и запоминаем старый адрес (если окон несколько - складывай адреса стандартных процедур в переменные в модулях форм):

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

'код формы MyForm
Public OldWndProc as Long

Private Sub HookWindow()
    Dim hWnd As Long
    hWnd = Me.hWnd
    OldWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WndProc) ' ниже будет код процедуры WndProc
End Sub
Private Sub Form_Load()
    HookWindow
End Sub


А вот это - константы и оконная процедура (в стандартном модуле!), адресом которой заменили адрес стандартной процедуры:

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

'некоторые сообщения windows
Public Const WM_NCLBUTTONDBLCLK = &HA3&
Public Const WM_NCLBUTTONDOWN = &HA1&
Public Const WM_MOVING = &H216&
Public Const WM_MOVE = &H3&

Public Const GWL_WNDPROC= -4&
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim Wnd As MyForm, OldWndProc as Long
   
    Select Case Msg
        Case WM_NCLBUTTONDBLCLK
              'что-то делаем
        Case WM_MOVING
              'что-то делаем       
        Case WM_MOVE
               'что-то делаем       
        Case Else
     End Select
     ' как-то находим по hWnd и вызываем стандартную процедуру (а можем и не вызывать)
     For Each Wnd In Forms
          If Wnd.hWnd = hWnd Then
                OldWndProc = Wnd.OldWndProc
                Exit For
          End If
     Next Wnd

     WndProc = CallWindowProc(OldWndProc, hWnd, Msg, wParam, lParam)
End Function

Для отслеживания фактов перемещения формы тебе нужно ловить WM_MOVE, как и говорили