Клавиша Alt и Win7
Добавлено: 10 Июль 2013, 21:12
В ClaMag за 2008г(не помню точно) был темплейт на эту тему
Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
For every control where you want to disable the mouse wheel you will
need a subclass. Every control, including the widow itself, is a
window and can be subclassed to intercept messages. Yeah, it gets
complicated!<g>
So if you want to intercept the mouse wheel for the window you would
subclass the client area using Window{PROP:ClientWndProc}. For a list
control you would subclass the list using ?List{PROP:WndProc}. You can
simplify the subclass procedures a bit as shown below.
Код: Выделить всё
OPEN(Window)
SubClassLong = Window{PROP:ClientWndProc}
Window{PROP:ClientWndProc} = ADDRESS(SubClassWindow)
SubClassListLong = ?List{PROP:WndProc}
?List{PROP:WndProc} = ADDRESS(SubClassList)
SubClassWindow PROCEDURE(hWnd,WinMsg,wParam,lParam)
WM_MOUSEWHEEL EQUATE(020Ah)
CODE
IF WinMsg = WM_MOUSEWHEEL
Return(0)
END
RETURN(_CallWindowProc(SubClassLong,hWnd,WinMsg,wParam,lParam))
SubClassList PROCEDURE(hWnd,WinMsg,wParam,lParam)
WM_MOUSEWHEEL EQUATE(020Ah)
CODE
IF WinMsg = WM_MOUSEWHEEL
Return(0)
END
RETURN(_CallWindowProc(SubClassListLong,hWnd,WinMsg,wParam,lParam))