Класс для сабклассинга окон и классов.
Запись от The trick размещена 16.06.2014 в 00:58
Показов 6033
Комментарии 7
Метки vb
|
ОПИСАНИЕ УСТАРЕЛО. АКТУАЛЬНОЕ ОПИСАНИЕ НА GITHUB. Разработал класс с помощью которого можно работать с сабклассингом. Класс имеет событие WndProc, которое вызывается при получении окном сообщения. Также имеется возможность поставить сабклассинг на класс окон. Имеются методы для приостановки сабклассинга и снятия его, а также получения информации о сабклассинге. Работать очень удобно, т.к. можно останавливать проект кнопкой стоп без последствий. Запускать лучше через Start with full compile, т.к. это предотвратит вылеты, при неудачной компиляции. Я себе вообще вывел отдельно кнопку рядом с обычной компиляцией, и пользуюсь ей. Для установки сабклассинга на группу окон (класс), нужно вызвать метод HookClass, передавая хендл окна чей класс нужно засабклассировать. При удачном выполнении метод вернет True. Сабклассинг будет действовать начиная со следующего созданного окна этого класса, т.е. на переданный параметр сабклассинг действовать не будет. Также по умолчанию этот вид сабклассинга приостановлен. Я сделал это из-за того, что если не обработать сообщения создания окон должным образом, то проект не запустится с ошибкой Out of memory. Для снятия сабклассинга нужно вызвать метод Unhook, возвращающий True при удачном выполнении. Для приостановки и возобновления сабклассинга предусмотрены методы PauseSubclass и ResumeSubclass, возвращающие True при удачном выполнении. Свойство hWnd возвращает хендл окна, на который установлен сабклассинг (для случая установки сабклассинга на класс окон, возвращает переданный параметр). Свойство IsSubclassed предназначено для определения, установлен ли сабклассинг или нет. Свойство IsClass возвращает True, если сабклассинг устанавливался на класс окон. Свойство IsPaused возвращает True, если сабклассинг приостановлен. Версия 1.1:
Последняя версия. Обновления: 18.07.14 - версия 1.1 23.06.15 - версия 2.0 13.11.15 - версия 2.1 12.01.16 - версия 2.2 21.11.21 - версия 3.0 |
Метки vb
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 7
Комментарии
-
...Запись от Антихакер32 размещена 16.06.2014 в 02:34 
-
Что означает выделенное:
Запись от Dragokas размещена 18.07.2014 в 01:49
-
Т.е. если ты не хочешь обрабатывать процедуру, а оставить ее по умолчанию (то бишь вызвать CallWindowProc с процедурой по умолчанию), то DefCall = True. Например ты сабклассишь форму, для того чтобы ограничить изменяемые размеры, тебе нужно только WM_GETMINMAXINFO, а например WM_PAINT (отрисовка) тебе не нужен, т.е. он должен отрисовываться по старому. Значит обрабатываешь WM_GETMINMAXINFO, а для WM_PAINT делаешь DefCall = True. Желательно для всех неиспользуемых сообщений ставить DefCall.
Сообщение от Dragokas
Запись от The trick размещена 18.07.2014 в 01:54 
-
Правильно ли я понимаю, что, если я не пишу DefCall = True, то мое сообщение дальше не проходит ?
Запись от Dragokas размещена 18.07.2014 в 18:42
-
Да.
Сообщение от Dragokas
Запись от The trick размещена 18.07.2014 в 18:45
-
Привет, Анатолий!
А реально, дописать сюда альтернативную ветвь для поддержки Windows 2000,
заменив SetWindowSubclass на SetWindowLong? А то в этой системе SetWindowSubclass нету.
Твоя первая версия на Win2000 работает хорошо.Запись от Dragokas размещена 02.11.2016 в 03:55
-
Разобрался. В Windows 2000 нужно было экспортировать по ординалу.
Visual Basic 1 2 3
Private Declare Function SetWindowSubclass Lib "Comctl32" Alias "#410" (ByVal hwnd As Long, ByVal pfnSubclass As Long, ByVal uIdSubclass As Long, dwRefData As Any) As Long Private Declare Function RemoveWindowSubclass Lib "Comctl32" Alias "#412" (ByVal hwnd As Long, ByVal pfnSubclass As Long, ByVal uIdSubclass As Long) As Long Private Declare Function DefSubclassProc Lib "Comctl32" Alias "#413" (ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Запись от Dragokas размещена 29.11.2016 в 22:35
Сообщение от Dragokas
