Скачать: CL | DM;

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

← →
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), то один из вариантов - перехватывать прерывание от клавиатуры и блокировать запись цифрового символа в ее буфер. Возможно, что есть и более простой путь.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c