У мя вот вопрос: Мне нада чтобы в компонент Edit пользователь не смог вводить ничего кроме чисел и естественно Бэкспейса - это то понятно:
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key In['0'..'9',#8]) then
begin
MessageDlg('Ошибка ввода!Введите число!',mtError,[mbOk],0);
key:=#0;
end;
end;
А вот мне нада еще чтоб можно было ввести -1 и -2 - как это сделать?