Клавиши на клаве

← →
Win32 (2002-03-15 17:27) [0]

А можно ли заблокировать все клавиши с циферками на клаве? Если возможно, код pliz

← →
mukha (2002-03-18 12:36) [1]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ["0".."9"]) then
Key:=#0;
end;

← →
EsKor (2002-03-19 03:49) [2]

Если это касается только конкретного компонента вашего приложения то вполне подойдет код приведенный mukha, только еще нужно (м.б. на всякий случай) свойство формы KeyPreview = false. Если для всех компонентов активной формы, то KeyPreview = true и обработчик KeyPress делать для формы. Можно еще поковырять компонент ApplicationEvents. При его использовании он первым обрабатывает указанное событие, если нужно чтобы это событие далее не обрабатывалось другим активным компонентом и/или активной формой, у него есть метод CancelDispatch.
Если вообще и для любого приложения (в текущем сеансе Windows), то один из вариантов - перехватывать прерывание от клавиатуры и блокировать запись цифрового символа в ее буфер. Возможно, что есть и более простой путь.

Клавиши на клаве Найти похожие ветки