| Вопрос: DragDrop формы | Добавлено: 25.01.05 11:20 |
Автор вопроса:  Koks | Web-сайт: ge
|
|
Немного туповатый вопрос, но все же как при перетаскивании формы (за заголовок) отловить её координаты.
Скажем X,Y. DragDrop действует только на контролы, а не на саму форму. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #1 | Добавлено: 25.01.05 14:02 |
|
Option Explicit
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT_API) As Long Private Type POINT_API x As Long y As Long End Type Private Sub Timer1_Timer()  im pt As POINT_API
pt.x = Me.Left pt.y = Me.Top ScreenToClient Me.hWnd, pt Label1.Caption = "X - " & pt.x & " Y - " & pt.y End Sub |
||
|
Номер ответа: 2 Автор ответа: Koks Вопросов: 4 Ответов: 4 |
Web-сайт: Профиль | | #2 | Добавлено: 25.01.05 19:07 |
| Спасибо ! Помогло | ||
Страница: 1 |