| Вопрос: Drag & Drop | Добавлено: 02.08.04 22:33 |
Автор вопроса:  Smith | ICQ: adamis@list.ru |
| Как сделать так чтобы форму можно было перетаскивать за любое место, а не только за шапку? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #1 | Добавлено: 02.08.04 22:44 |
|
[В General > Declarations]
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 [Где-Нибудь  ]
Sub DragForm() Call ReleaseCapture Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End Sub [В Form_MouseDown] Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then DragForm End Sub DragForm можно писать в любом MouseDown'e ! |
||
|
Номер ответа: 2 Автор ответа: CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #2 | Добавлено: 03.08.04 03:24 |
| Или пошли ему SC_MOVE | ||
Страница: 1 |