Я так понял что АлексейК хочет получить доступ к функции окна, обрабатывающей все приходящие сообщения.
Если это так...
В современных "средствах" визуального программирования класс формы как раз ис крывает от нас все эти WinAPI фичи, как создание окна с заданием кучи свойств в функ. CreateWindow и т.д., а главное функцию обработчик сообщений. Нам как программистам показывают только некоторые из приходящих окну/форме сообщений, тогда как остальные обрабатываются по умолчанию.
Однако, у нас есть возможность заменить функ. окна по умолч. на свою - это называется subClassing. Мы просто заменяем на свою функцию, получаем все сообщения, обрабатываем их как хотим, а потом передаем их функции окна по умолч. - мы же не хотим обрабатывать все сообщения (например такая геморойная как перерисовка и т.д.), пусть и теперь и он поработает. А если мы какое-нибудь сообщение не передадим, то о нем окно ничего и не узнает - такой вот способо перехвата/блокировки сообщений
Пример:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
Устанавливает наш обработчик событий для формы
lpPrevWndProc = SetWindowLong(hndForm, GWL_WNDPROC, AddressOf WindowProc)
' Возвращает обратно станд. обработчик
SetWindowLong hndForm, GWL_WNDPROC, lpPrevWndProc
это пример для ловли сообщения о прокрутке колесика мыши в ListBox формы VBA Excel. Он ловит
это событие и посылает его ListBox в виде нажатия клавиш PgDn или "Стрелок", потому
как станд. сообщение о прокрутке скрола ListBox в Excel не обрабатывает (в отл. от Access)
Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
' Наш обработчик событий
Dim hWndFocus As Long
Dim hWndParent As Long
Dim lpClassName As String
Dim WHEEL_DELTA As Long
Dim i As Integer, k As Integer
' обрабатываем событие - поворот колесика
If uMsg = WM_MouseWheel Then
' проверям стоит ли фокус на каком-нибудь ListBox
'------------------------------------------------
hWndFocus = apiGetFocus
' буфер для имени класса окна
lpClassName = Space( 256 )
' получаем имя класса активного элемента
i = GetClassName(hWndFocus, lpClassName, 256)
' от пробелов освобождаемся
lpClassName = Left(lpClassName, i)
If lpClassName = "F3 Server 60000000 " Then
' у родителя ListBox'a должен быть такой же класс,
' а если родителя нет, то это не ListBox, а клиент. часть формы
' ----------------------------------------------
hWndParent = GetParent(hWndFocus)
If hWndParent > 0 Then
lpClassName = Space( 256 )
i = GetClassName(hWndFocus, lpClassName, 256 )
lpClassName = Left(lpClassName, i)
If lpClassName = "F3 Server 60000000 " Then
' все OK, это ListBox работаем с ним дальше
' ------------------------------------------
' параметр WHEEL_DELTA хранится в High-word wParam
WHEEL_DELTA = wParam And cHighWord
k = intScroll
Do
If WHEEL_DELTA > 0 Then
If boolRowPage Then
i = PostMessage(hWndFocus, WM_KEYDOWN, VK_UP, vbNull)
Else
i = PostMessage(hWndFocus, WM_KEYDOWN, VK_PRIOR, cExtKeyFlag)
End If
Else
If boolRowPage Then
i = PostMessage(hWndFocus, WM_KEYDOWN, VK_DOWN, vbNull)
Else
i = PostMessage(hWndFocus, WM_KEYDOWN, VK_NEXT, cExtKeyFlag)
End If
End If
k = k - 1
Loop While k > 0
End If
End If
End If
End If
' вызываем станд. функцию (которая была раньше)
WindowProc = CallWindowProc(lpPrevWndProc, hWnd, uMsg, wParam, lParam)
End Function
