Используем WM_WININICHANGED в качестве примера :
Объявление метода в TForm позволит вам обрабатывать сообщение WM_WININICHANGED:
procedure WMWinIniChange(var Message: TMessage); message WM_WININICHANGE;
Код в implementation может выглядеть так:
|
Code: |
|
procedure TForm1.WMWinIniChange(var Message: TMessage); begin inherited; { ... ваша реакция на событие ... } end; |
Вызов inherited метода очень важен. Обратите внимание также на то, что для функций, объявленных с директивой message (обработчиков событий Windows) после inherited нет имени наследуемой процедуры, потому что она может быть неизвестна или вообще отсутствовать (в этом случае вы в действительности вызываете процедуру DefaultHandler).
Copyright © 1996 Epsylon Technologies
Взято из FAQ Epsylon Technologies
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!