|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2014, 22:11 | #1 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
Не удаётся отлавливать хук для нестандартной формы
Добрый вечер! Глобальный хук отлавливать научился. Но всё хорошо работает на форме, которая уже даётся готовой, типа Form1, для которой определён класс TForm1.
Но простое приложение с одним компонентом Label, весит 290 кБ, что, я считаю, слишком жирновато для простой программы. Сделал минимальную форму по следующему коду Код:
Код:
для желающих тоже в этом покопаться, выкладываю исходник. модуль SysUtils заменил на урезанный SysUt - нужна только функция IntToStr для отображения результатов, и то, временно.
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
Последний раз редактировалось NetSpace; 26.12.2014 в 22:15. |
26.12.2014, 23:41 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Не пойму как ты хук связал с обработчиком сообщения...
Вообще твое procedure KeyMessageHandler(var Msg:TMessage);message $0400+1; можно сконвертировать в: Код:
I'm learning to live...
|
27.12.2014, 10:24 | #3 |
Старожил
Регистрация: 13.07.2012
Сообщений: 6,342
|
Ну и где здесь установка хуков?
Хуки в принципе глобальные и будут автоматически отлавливать все окна. Последний раз редактировалось waleri; 27.12.2014 в 10:26. |
27.12.2014, 15:47 | #4 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
Уважаемый Stilet, по вашему примеру добавил 3 строчки и всё заработало! вот спасибо! опять ходил вокруг да около, а допенькать сам не смог
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
|
27.12.2014, 16:44 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Эт хорошо.
А я так и не допенькав как же ты хук умудрился с обработчиком о котором речь связать... Это наверное потому что я всю неделю сонный хожу после монтирования серверной стойки..
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Хук для буфера обмена | PowerUSB | Microsoft Office Access | 7 | 20.02.2016 08:20 |
Не удаётся установить средства разработки программ для Android | ak167 | Мобильные ОС (Android, iOS, Windows Phone) | 0 | 11.09.2013 23:13 |
Отлавливать сообщение WM_PASTE | ololo23 | Помощь студентам | 4 | 16.03.2013 16:43 |
Отлавливать сообщения от Рунтайм созданных компонентов формы | 100GRamm | Общие вопросы Delphi | 2 | 09.10.2011 15:56 |
Хук не работает при свертывании формы | Denkot | Помощь студентам | 0 | 02.05.2010 10:45 |