как перетащить форму не за заголовок

[dorido]

мне нужен код, как перетащить форму , с использованием image`а. Как перетащить форму за свободное место я знаю и сам

[_Мика_]

В Image_MouseDown вставляешь код и вперед!

[dorido]

какой

[GSerg]

Какой вставлял бы в Form_MouseDown - ты же знаешь, сам сказал...

[Alexander N. Samarin]

Есть милион мест, где это можно найти, а также FAQ

[step]

Люди, разве у image по стандарту есть hWnd ?

[step]

Вот посмотри

[kirrun]

Люди, разве у image по стандарту есть hWnd ?

А зачем тебе hWnd image'a??? Тыж форму таскать бушь!

[step]

Ну если мы говорим про это, то....

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

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
ReleaseCapture
SendMessage Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub



[Alexander N. Samarin]

А может человеку надо таскать форму ТОЛЬКО за Image????

[Amed]

Тогда

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

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
if x>image1.left and x<(image1.left+image1.width) then
    if y>image1.top and y<(image1.top+image1.height) then
        ReleaseCapture
        SendMessage Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
    end if
end if
End Sub


Что может быть непонятного?

[Шурик]

Нееееееееее
тогда:

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

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub


[step]

Не понятен один вопрос Amed почему твой код неработает?

[step]

Шурик
Ну а если быть "в плотную" к вопросу, то

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

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub


[Amed]

Я его не проверял. Написал принцип мышления: если координата мыши при нажатой кнопке находится внутри прямоугольника Image'а, то можно перетаскивать. Иначе-нет.

А не работает потому, что когда мыш над Имейджем, МаусДаун для формы не срабатывает. Надо так:

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

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
ReleaseCapture
SendMessage Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub


[Шурик]

Гыыыы....
сорри офф:
"как перетащить форму не за загривок"

[Amed]

"Не за шкирку"