Страница 1 из 1

Клавиша Alt и Win7

Добавлено: 10 Июль 2013, 21:12
morkovin
В ClaMag за 2008г(не помню точно) был темплейт на эту тему

Re: Клавиша Alt и Win7

Добавлено: 11 Июль 2013, 16:33
Алексей- Софт-Центр
Добрый день!
Если не затруднит - не нашел обработчик колесика мыши!
(В старых постах были ссылки на фтп-не нашел)
Если есть киньте, пожалуйста или на info@soft-center.ru

Алексей

Re: Клавиша Alt и Win7

Добавлено: 11 Июль 2013, 20:34
morkovin
Можно посмотреть здесь _http://www.clarion-software.com . Задай поиск mousewheel.

Вот вырезка из одной дискуссии:
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))

Re: Клавиша Alt и Win7

Добавлено: 12 Июль 2013, 12:35
Алексей- Софт-Центр
Спасибо)))