Как Ограничить Ввод С Клавиатуры

[Sascha]

Как ограничить ввод с клавиатуры
К примеру Вам необходимо, чтобы в поле компонента Edit пользователь мог вводить только числовые значения. Для этого нужно воспользоваться свойством OnKeyPress и записать следующий код:

procedure TStatisticEdit.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
#8:; //BackSpace
else Key:=Chr(0);
end;
end;

Описанный выше код будет обрабатывать только нажатие клавиш цифр от '0' до '9' и клавиши Backspace для возможности удаления.

В случае, если Вам необходимо запретить ввод каких-либо определенных символов (к примеру, скобок), запишите следующее:

procedure TAddVessel.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['(']+[')'] then Key:=#0;
end;

При необходимости Вы можете добавить в квадратных скобках исключения для любого количества символов.