LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 07 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: как отлов...
 Тема: как отловить перемещение формы?
 
 15.06.2007 21:03:59
RV
38 сообщения


Тема: как отловить перемещение формы?
Доброго времени суток
Как отловить перемещение формы?
Спасибо


P.S. События в формах
Автор: RV от 24.04.2003 15:23:54 Источник ...
 15.06.2007 21:03:59
All
4316 сообщения
1-ый


RE: как отловить перемещение формы?
Пример ниже позволяет перемещать окно без использования заголовка формы

'Функция эмулирует захват окна при движении
Public Declare Function apiReleaseCapture Lib "user32" _
Alias "ReleaseCapture" () As Long

'Послать сообщение в окно для смещения
Public Declare Function apiSendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_SYSCOMMAND As Long = &H112
Public Const SC_MOVE_MOUSE As Long = &HF012&

' Определяем режим движения окна
' для разных объектов
Private Sub la_object_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
apiReleaseCapture 'Эмуляция захвата окна
Call apiSendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MOVE_MOUSE, 0)
End Sub





P.S. События в формах
Автор: Expert от 0:00:00 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: как отлов...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke