Советы по Delphi

Хитрость KeyPreview


В обработчик события FormCreate вставьте следующую строчку кода:

    KeyPreview:=TRUE;

Это позволит всем событиям, связанным с нажатием клавиш, в первую очередь передаваться форме, чьи обработчики могут выполнить какое-то заранее заданное действие или "подавить" клавиши. Только после этого они передаются выбранному элементу управления. Чтобы полностью "подавить" клавишу, используйте событие OnKeyPress, где код нажатой клавиши имеет тип Char, и для того, чтобы "подавить" его, просто напишите key:=#0. [000348]



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