Клик на форме

[vvs_adm]

Как можно отследить клик мышью на форме в ЛЮБОМ месте? А то события Click, MouseDown, MouseUp происходят тока при клике по пустому месту.

[Twister]

Но ведь кликая не по пустому месту соответственно кликаешь не по форме...

Ты имел ввиду распознать клик в системе который производится где-то над твоей формой?

[vvs_adm]

Ну я имею ввиду клик на объекте = форма + контролы на ней.

[Twister]

клик на объекте = форма + контролы на ней.

Теперь я вообще ничего не понял...

Тебе надо по клику на объекте узнать координаты мыши относительно формы, относительно экрана, в твипах, в пикселях или как?...

[vvs_adm]

Мне неважны координаты, мне неважно даже знать, какая кнопка нажата... Мне нужно при клике на форме запустить определенную процедуру проверки.

[Twister]

Мне неважны координаты, мне неважно даже знать, какая кнопка нажата...

Как раз это и важно. Есть несколько способов:

1. Проверять нажатие на каждом контроле...
2. Ставить хук на клики и проверять где находится курсор (или не где находится, а окно родитель того окна, по которому был произведен щелчек - GetParent вернет 0 если родитель десктоп)
3. SetCapture - но это врядли подойдет...

[vvs_adm]

1. Проверять нажатие на каждом контроле...

До этого я и сам догадаться могу, но это ведет к трудно отлавливаемым ошибкам в случае добавления нового контрола и забития добавления соответствующей проверки. Да и контролов на форме ... много ...

2. Ставить хук на клики и проверять где находится курсор (или не где находится, а окно родитель того окна, по которому был произведен щелчек - GetParent вернет 0 если родитель десктоп)

Слишком заморочено, хотелось бы попроще...

3. SetCapture - но это врядли подойдет...)

А вдруг как раз и подойдет?

[Twister]

SetCapture захватывает обработку событий мыши в рамках своего приложения. И лишь если при утановки SetCapture кнопка мыши была в нажатом состоянии захват распространяется на всю систему.

При установленном SetCapture не всплывают подсказки, не "поднимаются" кнопки - т.е. пока он установлен нет нормальной работы приложения. Я использую его для того, чтоб пользователь мог выбрать мышкой нужное окно...

[vvs_adm]

Не... это совсем не то. Почему разработчики VB не установили такого события

[Twister]

Остается два варианта: первый и второй. Хук - геморойно, так что пользуй первый...

[vvs_adm]

Нафик-нафик... Лучше я как и раньше по таймеру поживу... Потом как-нибудь перейдем на современный стиль

P.S.: У меня есть форма настроек, и кнопка "Применить", которую нужно раздисеблить при изменении настроек. Сейчас, стыдно сказать, проверка на изменение идет по таймеру. Вставку во все контролы обработку я точно не буду делать. Остальное погляжу. Если кто-то не посоветует что-нить простое.

[Twister]

Ну удачи...

[vvs_adm]

Спасибо. На данный момент поставим Hook, которым в конце разработки заменим timer Но другие предложения приветствуются ... Хотя наверное других вариантов то и нет, но вдруг...

[Antonariy]

4. Сабклассинг

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

'в форме
Private Sub Form_Load()
Dim c As Control
Dim h1 As Long
Dim h2 As Long
    On Error Resume Next
    For Each c In Me.Controls
        h1 = c.hwnd
        If Err.Number = 0 Then
            h2 = SetWindowLong(h1, GWL_WNDPROC, AddressOf TargetProc)
            PostMessage h1, WM_SETPREVPTR, h2, 0
        Else
            Err.Clear
        End If
    Next c
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim c As Control
Dim h1 As Long
    On Error Resume Next
    For Each c In Me.Controls
        h1 = c.hwnd
        If Err.Number = 0 Then
            PostMessage h1, WM_RESTOREFUNC, 0, 0
        Else
            Err.Clear
        End If
    Next c
End Sub

'в модуле
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const GWL_WNDPROC = -4
Public Const WM_USER = &H400
Public Const WM_LBUTTONUP = &H202
Public Const WM_SETPREVPTR = WM_USER + 1
Public Const WM_RESTOREFUNC = WM_USER + 2

Public Function TargetProc(ByVal hwnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Static PrevFuncPointer As Long
    Select Case message
        Case WM_SETPREVPTR
            PrevFuncPointer = wParam
        Case WM_RESTOREFUNC
            SetWindowLong hwnd, GWL_WNDPROC, PrevFuncPointer
        Case WM_LBUTTONUP
            Debug.Print "mouseup" 'типа кликнули
        Case Else
            If PrevFuncPointer = 0 Then
                TargetProc = 0
                Exit Function
            End If
    End Select
    TargetProc = CallWindowProc(PrevFuncPointer, hwnd, message, wParam, lParam)
End Function

[Antonariy]

Админам: Тег code что-то глючит немного. Почему весь код закомментен?

[_Мика_]

Админам: Тег code что-то глючит немного. Почему весь код закомментен?

Все правильно, если юзать кнопку "Code" тогда так и будет, а если юзать кнопку "VB" тогда будет как в VB

[Antonariy]

Что-то я не наблюдаю такой кнопки.

[Amed]

Посмотри кнопку тут:
http://bbs.vbstreets.ru/posting.php?mode=reply&t=18181

[vvs_adm]

4. Сабклассинг

А чем сабклассинг от хука отличается?

[tyomitch]

4. Сабклассинг

А чем сабклассинг от хука отличается?

"А чем отличается ворона от письменного стола?" (с) Л. Кэролл
Ничего общего нет.

[vvs_adm]

tyomitch

для неграмотных (это для меня ) : сабклассинг - это механизм замены стандартной оконной процедуры класса на любую другую, которая будет принимать все сообщения, направляемые окну. После приема сообщения новая процедура должна передать его старой(стандартной) процедуре. Если новая процедура не передает сообщение старой процедуре, это называется блокировкой сообщения. Процесс замены и восстановления стандартной процедуры я буду называть установкой/снятием хука (хотя технически это не хук, но для удобства назовем его так).

Вот я в нескольких статьях читал, что "ставится хук", и они меня запутали, гады