Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как заблокировать клавишу? [D6, XP]


Andrey K ©   (2015-09-24 13:39:00) 

Делаю редактор. Там по KeyPress ',' перевожу в '.' (if Key = ',' then Key := '.'), чтобы не лепили по ошибке.
В некоторых ситуациях появилась необходимость вставить запятую
В обработчике KeyDown
пишу:
if (getasynckeystate(VK_SHIFT)<>0) and (getasynckeystate(ord('.'))<>0) then InsDat(',');
Всё прекрасно. Но когда на боковой клавиатуре жму точку то при отпускании срабатывает Del и удаляется последующий символ.
Как это побороть?


  (2015-10-20 19:41:00) [1]

Удалено модератором


NoUser   (2015-09-25 18:08:00) [2]

> В обработчике Key Down
>при отпусканиисрабатывает Del


Andrey K   (2015-09-24 21:29:00) [3]

Что бы Delet не срабатывал.


Игорь Шевченко   (2015-09-24 16:20:00) [4]


> Как это побороть?


numlock включить


Наверх

Титульная страница Поиск, карта сайта Написать письмо