Как заблокировать клавишу?

← →
Andrey K (2015-09-24 13:39) [0]

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

← →
Игорь Шевченко © (2015-09-24 16:20) [1]

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

numlock включить

← →
Andrey K (2015-09-24 21:29) [2]

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

← →
NoUser © (2015-09-25 18:08) [3]

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

← →
имя (2015-10-20 19:41) [4]

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

Как заблокировать клавишу? Найти похожие ветки