Procedure TForm1 Edit1KeyPress Sender TObject var Key Char begin Key с

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// Key — символ, соответствующий нажатой клавише.
// Если символ недопустимый, то процедура заменяет его
// на символ с кодом 0. В результате этого символ в поле
// редактирования не появляется, и у пользователя создается
// впечатление, что программа не реагирует на нажатие некоторых
// клавиш.
case Key of
'0'..'9': ; // цифра
#8 : ; // клавиша <Back_Space>
// остальные символы — запрещены
else Key := Chr(0); // символ не отображать
end;
end;