Pascal 7 & Objects

       

Замена поведения по умолчанию


-----------------------------------------------------------------

Более полезным подходом, чем простое игнорирование сообще- ния, является замена поведения по умолчанию чем-то совершенно другим. Например, следующий метод сообщает управляющему элементу редактирования, что вместо вставки символа при нажатии любой кла- виши нужно давать звуковой сигнал:

procedure TBeepEdit.WMChar(var Msg: TMessage); begin MessageBeep(0); end;

Звуковой сигнал по нажатию клавиш сам по себе не особенно полезен, но дает хорошую иллюстрацию. В общем случае вы можете заменить используемое по умолчанию поведение некоторым другим. Определяемая вами реакция будет единственной.



Содержание раздела