Как в TEdit ограничить ввод чисел?

[XerSon]

Edit - разрешить ввод только чисел от 1 до 35?

[MaxNik2009]

1. Поставь у компонента свойство NamberOnly:= true. Это разрешит ввод только чисел в Edit.
2. Проверяй по нажатие клавиш текст введенный в Edit.

[SERG1980]

Для таких целей есть компонент SpinEdit в котором указывается диапазон вводимых чисел

[alexprey]

TSpinEdit - это тот же TEdit, только немного улучшенный.
MaxNik2009, это идея самая лучшая, сам её пользуюсь. Так прога будет меньше весить

[Ayubkhon]

В собитии KeyPress поставь нижеследующий код это позволяет вводить только цифры.

  case key of
    '0'..'9':;
    #8:; //Backspace
  else Key:=Chr(0);
  end;

[MaxNik2009]

Сообщение от Ayubkhon

В собитии KeyPress поставь нижеследующий код это позволяет вводить только цифры.

  case key of
    '0'..'9':;
    #8:; //Backspace
  else Key:=Chr(0);
  end;

К чему такие ложности?
По моему это проще:

1. Поставь у компонента свойство NamberOnly:= true. Это разрешит ввод только чисел в Edit.

[XerSon]

Сообщение от SERG1980

Для таких целей есть компонент SpinEdit в котором указывается диапазон вводимых чисел

Спасибо всем!

[MaxNik2009]

procedure TForm3.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if StrToInt(Edit1.Text)>35 then
    Edit1.Text:= '35';
end;

[BrYan91]

ну у меня есть еше такой код, вводятся только цифры, одна точка, и один минус, и тот токо сначала, вместо цифр можна буквы подогнать любого алфавита

if not (key in ['0'..'9','.','-',#8])
then key:=#0
else begin
if (key='.')and(pos('.',tsedit(sender).Text)<>0)
then key:=#0;
if (key='-')and((tsedit(sender).SelStart<>0)or(pos('-',tsedit(sender).Text)<>0))
then key:=#0;
end;