Таскание формы мышей

[HotKitten]

Как таскать форму за любую её часть?
че-то в поиске поковырялся - не нашёл

[GSerg]

Искал, значит?
Скажи мне, почему я первым же запросом нашёл 4 темы?

http://bbs.vbstreets.ru/viewtopic.php?p=41977#41977

[A.A.Z.]

Потому что ты искал по ReleaseCapture Угадал?

[HotKitten]

Искал, значит?
Скажи мне, почему я первым же запросом нашёл 4 темы?

http://bbs.vbstreets.ru/viewtopic.php?p=41977#41977

а каким ты запросом искал???

[GSerg]

Не угадал! По HT_CAPTION

Но любой мог бы найти по
http://www.yandex.ru/yandsearch?ras=1&d ... ets.ru&ds=

[HotKitten]

гениально

[schalexey]

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

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 Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then
Call ReleaseCapture
Call SendMessage(hwnd, &HA1, 2, 0&)
   End If

End Sub


[GSerg]

schalexey, продолжаешь славную традицию постить не читая?

[schalexey]

GSerg да вродь читал... может не так понял.. но имеено этот код использую для таскания форм (без рамок), а по ссылкам неходил (если ты про это)

[GSerg]

Да, я про это, потому что по ссылкам именно этот код.

[anian]

А вот чего и как надо послать окошку, чтоб при его таскании таскалась не рамка, а все окно?

[ALX_2002]

2 Anian: Может я чего то не понял... Но вообще то тема как раз о таскании формы за ЛЮБУЮ часть.

Как таскать форму за любую её часть?
че-то в поиске поковырялся - не нашёл

[anian]

2 Anian: Может я чего то не понял... Но вообще то тема как раз о таскании формы за ЛЮБУЮ часть.

Ты не понял ...таскать я ее и так таскаю...только таскается контур окна, а не все окно...настройки винды такие...а нада что бы не зависело от настроек и таскалось само окно...

[Konst_One]

это вопрос не к окну , а к настройке винды (есть такое свойство: Show window content while dragging):shock:

[anian]

это вопрос не к окну , а к настройке винды (есть такое свойство: Show window content while dragging):shock:

Вот об ентом я и говорю! Как обойти эту настройку? Ведь при перетаскивании окну какая-то мессага посылается...

[GSerg]

WM_MOVING...

[HotKitten]

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

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 Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then
Call ReleaseCapture
Call SendMessage(hwnd, &HA1, 2, 0&)
   End If

End Sub


а этот код гораздо прикольнее, чем GSerg писал

[extHack]

Какая разница кто писал этот код
Я его тоже видел на vbrussian.com

[GSerg]

а этот код гораздо прикольнее, чем GSerg писал

Покажи мне, пожайлуста, место, где я писал другой код...

[schalexey]

HotKitten код обсолютно одинаковый просто у меня не указаны константы а сразу подставлены значения (можешь сравнить).

[HotKitten]

schalexey в твоём варианте удобнее, что не надо прописывать mouseup и mousedown, потому, что когда на форме много объектов - много кода получается

[anian]

Дык что? Как все-таки мовить весть контент окна, а не только его контур?

to GSerg: Вопрос я поставил не корректно... WM_MOVING посылается, однозначно...но может там параметр какой есть - например WM_MOVING+FULL_CONTENT или WM_MOVING+BORDER_ONLY

[Дмитрий_pro]

Лично мне нравится такой код:

Public BarX
Public BarY

Private Sub frmMain_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 1 Then BarY = Y: BarX = X
End Sub

Private Sub frmMain_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

If Button = 1 Then
frmMain.Top = frmMain.Top + Y - BarY
frmMain.Left = frmMain.Left + X - BarX
end if

End Sub