Прицепись "зараза"

[VERITAS]

Здраствуйте товарищи программеры!
Я просто "волосы на голове рву"
Не могу понять, каким образом привязать одну форму, к другой, чтобы та, вторая, двигалась СИНХРОННО с первой, но не использовав Timer'a, потому что скорость работы таймера не позволяет добиться синхронности.
Где я такое видел? - Да в нашем любимом Winamp'e !!! Какие у кого есть мысли.

[step]

Ну это зависит от того как ты двигаешь, если цепляться за форму, то обраб. моус ап, а если за Caption, то через таймер, просто поставь в таймере, если форма1 не вплотную с формой2- прилепить, а если в плотную то exit sub. И всё будет ОК.

[ANDLL]

Если кратко: лови WM_MOVE.

[kirrun]

БЛИН! НА

Модуль:

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

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_MOVE = &H3
Public Const GWL_WNDPROC = -4
Public OldWinProc As Long
Public OldWinProc2 As Long

Public Function MyWindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg = WM_MOVE Then
    Form2.Move Form1.Left + Form1.Width, Form1.Top
End If
MyWindowProc = CallWindowProc(OldWinProc, hw, uMsg, wParam, lParam)
End Function


Форма:

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

Private Sub Form_Load()
SetWindowLong Form2.hwnd, GWL_WNDPROC, OldWinProc2
OldWinProc = SetWindowLong(Form1.hwnd, GWL_WNDPROC, AddressOf MyWindowProc)
End Sub


А вобще запомни, пригодится в жизни:

СУЩЕСТВУЕТ ПОИСК!!!

[kirrun]

В последний раз даю развернутый ответ...

В последствии буду посылать в пять букв

[VERITAS]

kirrun, только что рылся в поиске и наткнулся на твой вопрос - ответ в http://bbs.vbstreets.ru/viewtopic.php?t=2954&highlight=%CF%D0%C8%C2%DF%C7%CA%E0+%D4%CE%D0%CC%DB
Так что не злись, просто не успел пропостить. А ведь сам когда-то спрашивал

[VERITAS]

И Спасибо за помощь

[kirrun]

VERITAS

Гы А я не злюсь.. Просто потрудись сначала искать, а потом спрашивать =)