К примеру Вам необходимо, чтобы в поле компонента 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;
При необходимости Вы можете добавить в квадратных скобках исключения для любого количества символов.
