Форум программистов, компьютерный форум, киберфорум
The trick
Войти
Регистрация
Восстановить пароль
Оценить эту запись

Класс для сабклассинга окон и классов.

Запись от The trick размещена 16.06.2014 в 00:58
Обновил(-а) The trick 21.11.2021 в 02:33



ОПИСАНИЕ УСТАРЕЛО. АКТУАЛЬНОЕ ОПИСАНИЕ НА GITHUB.

Разработал класс с помощью которого можно работать с сабклассингом. Класс имеет событие WndProc, которое вызывается при получении окном сообщения. Также имеется возможность поставить сабклассинг на класс окон. Имеются методы для приостановки сабклассинга и снятия его, а также получения информации о сабклассинге. Работать очень удобно, т.к. можно останавливать проект кнопкой стоп без последствий. Запускать лучше через Start with full compile, т.к. это предотвратит вылеты, при неудачной компиляции. Я себе вообще вывел отдельно кнопку рядом с обычной компиляцией, и пользуюсь ей.
Название: Безымянный2.png
Просмотров: 3741

Размер: 1.9 Кб
Немного о работе с классом. Для установки сабклассинга на окно, вызывается метод Hook, с хендлом окна. Если метод возвращает True, значит сабклассинг установлен. Обрабатывая событие WndProc, можно изменять поведение окна. В аргумент Ret можно передавать возвращаемое значение, если нужно вызвать процедуру по умолчанию, то нужно передать в аргументе DefCall True.
Для установки сабклассинга на группу окон (класс), нужно вызвать метод HookClass, передавая хендл окна чей класс нужно засабклассировать. При удачном выполнении метод вернет True. Сабклассинг будет действовать начиная со следующего созданного окна этого класса, т.е. на переданный параметр сабклассинг действовать не будет. Также по умолчанию этот вид сабклассинга приостановлен. Я сделал это из-за того, что если не обработать сообщения создания окон должным образом, то проект не запустится с ошибкой Out of memory.
Для снятия сабклассинга нужно вызвать метод Unhook, возвращающий True при удачном выполнении.
Для приостановки и возобновления сабклассинга предусмотрены методы PauseSubclass и ResumeSubclass, возвращающие True при удачном выполнении.
Свойство hWnd возвращает хендл окна, на который установлен сабклассинг (для случая установки сабклассинга на класс окон, возвращает переданный параметр).
Свойство IsSubclassed предназначено для определения, установлен ли сабклассинг или нет.
Свойство IsClass возвращает True, если сабклассинг устанавливался на класс окон.
Свойство IsPaused возвращает True, если сабклассинг приостановлен.

Версия 1.1:
  • добавлен метод CallDef, позволяющий вызвать предыдущую процедуру окна, для заданного сообщения.
  • добавлено свойство Previous, которое возвращает адрес предыдущей оконной процедуры.
  • добавлено свойство Current, которое возвращает адрес текущей оконной процедуры.
Версия 2.0:
  • Убраны методы для работы с классами окон.
  • Реализация работает более стабильно т.к. применен другой способ сабклассинга (SetWindowSubclass)
Версия 2.1:
  • Еще более стабильная работа. Можно не беспокоится об ошибках и спокойно жать End, а также редактировать код и вызывать MsgBox.
Версия 2.2:
  • Еще более стабильная работа. Вылечены предыдущие баги.
Версия 3.0:
  • Еще более стабильная работа. Вылечены предыдущие баги. Полностью переписан код. Проект переехал на GitHub

Последняя версия.

Обновления:

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
Вложения
Тип файла: rar TrickSubClass.rar (20.0 Кб, 1104 просмотров)
Тип файла: zip Ver. 2_1.zip (6.2 Кб, 237 просмотров)
Тип файла: zip Ver. 2_2.zip (6.5 Кб, 279 просмотров)
Размещено в Без категории
Показов 5677 Комментарии 7
Всего комментариев 7
Комментарии
  1. Старый комментарий
    ...
    Запись от Антихакер32 размещена 16.06.2014 в 02:34 Антихакер32 вне форума
    Обновил(-а) Антихакер32 16.06.2014 в 03:26
  2. Старый комментарий
    Аватар для Dragokas
    Что означает выделенное:
    Цитата:
    В аргумент Ret можно передавать возвращаемое значение, если нужно вызвать процедуру по умолчанию, то нужно передать в аргументе DefCall True.
    Запись от Dragokas размещена 18.07.2014 в 01:49 Dragokas вне форума
  3. Старый комментарий
    Цитата:
    Сообщение от Dragokas Просмотреть комментарий
    Что означает выделенное:
    Т.е. если ты не хочешь обрабатывать процедуру, а оставить ее по умолчанию (то бишь вызвать CallWindowProc с процедурой по умолчанию), то DefCall = True. Например ты сабклассишь форму, для того чтобы ограничить изменяемые размеры, тебе нужно только WM_GETMINMAXINFO, а например WM_PAINT (отрисовка) тебе не нужен, т.е. он должен отрисовываться по старому. Значит обрабатываешь WM_GETMINMAXINFO, а для WM_PAINT делаешь DefCall = True. Желательно для всех неиспользуемых сообщений ставить DefCall.
    Запись от The trick размещена 18.07.2014 в 01:54 The trick вне форума
  4. Старый комментарий
    Аватар для Dragokas
    Правильно ли я понимаю, что, если я не пишу DefCall = True, то мое сообщение дальше не проходит ?
    Запись от Dragokas размещена 18.07.2014 в 18:42 Dragokas вне форума
  5. Старый комментарий
    Цитата:
    Сообщение от Dragokas Просмотреть комментарий
    Правильно ли я понимаю, что, если я не пишу DefCall = True, то мое сообщение дальше не проходит ?
    Да.
    Запись от The trick размещена 18.07.2014 в 18:45 The trick вне форума
  6. Старый комментарий
    Аватар для Dragokas
    Привет, Анатолий!

    А реально, дописать сюда альтернативную ветвь для поддержки Windows 2000,
    заменив SetWindowSubclass на SetWindowLong? А то в этой системе SetWindowSubclass нету.
    Твоя первая версия на Win2000 работает хорошо.
    Запись от Dragokas размещена 02.11.2016 в 03:55 Dragokas вне форума
  7. Старый комментарий
    Аватар для Dragokas
    Разобрался. В 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 вне форума
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru