Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Уважаемые эксперты!!! Как отключить на клавиатуре все кнопки кроме цифр и букв(еще Shift и кнопки прямо, влево, вправо, влево, вниз). Заранее благодарен!!!

Вопрос задал: Geron (статус: 1-ый класс) Вопрос отправлен: 2 октября 2006, 02:23 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Зачем? Просто может если задачу коректней сформулировать, то и решение будет "прозрачней и понятней".
А так могу сказать только одно - ставить хук и вместо кода клавиши возвращать 0

Ответ отправил: Вадим К (статус: Академик) Время отправки: 2 октября 2006, 09:45

Ответ #2. Отвечает эксперт: ANBsoft

Если вообще - то читай предыдущий ответ, а если применительно к своей программе, то обрабатывай OnKeyDown, OnKeyPress и все.

Ответ отправил: ANBsoft (статус: Студент) Время отправки: 2 октября 2006, 15:33

Мини-форум вопроса

Новаковский Юрий Аврамович (статус: 4-ый класс), 2 октября 2006, 11:03 [#1]: Установить у формы свойство KeyPreview в True, и воспользоваться событием OnKeyDown формы: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if not (Key in [48,149,250,351,452,553,654,755,856,957,16,37,38,39,40]) then Key:=0; end; Успехов Вам!

Alex Van Glukhman (статус: 7-ой класс), 4 октября 2006, 14:50 [#2]: Смотри сообщение на вопрос 123

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.