Класс для сабклассинга окон и классов.
ОПИСАНИЕ УСТАРЕЛО. АКТУАЛЬНОЕ ОПИСАНИЕ НА GITHUB. Разработал класс с помощью которого можно работать с сабклассингом. Класс имеет событие WndProc, которое вызывается при получении окном сообщения. Также имеется возможность поставить сабклассинг на класс окон. Имеются методы для приостановки сабклассинга и снятия его, а также получения информации о сабклассинге. Работать очень удобно, т.к. можно останавливать проект кнопкой стоп без последствий. Запускать лучше через Start with full compile, т.к. это предотвратит вылеты, при неудачной компиляции. Я себе вообще вывел отдельно кнопку рядом с обычной компиляцией, и пользуюсь ей. Немного о работе с классом. Для установки сабклассинга на окно, вызывается метод Hook, с хендлом окна. Если метод возвращает True, значит сабклассинг установлен. Обрабатывая событие WndProc, можно изменять поведение окна. В аргумент Ret можно передавать возвращаемое значение, если нужно вызвать процедуру по умолчанию, то нужно передать в аргументе DefCall True. Для установки сабклассинга на группу окон (класс), нужно вызвать метод 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 |
Всего комментариев 7
Комментарии
-
...
Запись от Антихакер32 размещена 16.06.2014 в 02:34
Обновил(-а) Антихакер32 16.06.2014 в 03:26 -
Запись от Dragokas размещена 18.07.2014 в 01:49 -
Т.е. если ты не хочешь обрабатывать процедуру, а оставить ее по умолчанию (то бишь вызвать CallWindowProc с процедурой по умолчанию), то DefCall = True. Например ты сабклассишь форму, для того чтобы ограничить изменяемые размеры, тебе нужно только WM_GETMINMAXINFO, а например WM_PAINT (отрисовка) тебе не нужен, т.е. он должен отрисовываться по старому. Значит обрабатываешь WM_GETMINMAXINFO, а для WM_PAINT делаешь DefCall = True. Желательно для всех неиспользуемых сообщений ставить DefCall.
Запись от The trick размещена 18.07.2014 в 01:54 -
Запись от Dragokas размещена 18.07.2014 в 18:42 -
Запись от The trick размещена 18.07.2014 в 18:45 -
Запись от 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