Как в Edit вводить только цифры

[subsonic]

Дорогие друзья!
Подскажите как сделать, чтоб в Edit можно было вводить только цифры?

Одна тема - один вопрос.
Правила трудно прочитать?

[SERG1980]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in['0'..'9',decimalseparator,#8]) then key:=#0;
 end;

если не нужно вводить число сдесятыми то убери decimalseparator
Всв-ве OnKeyPress остальных едитов выбери OnKeyPress первого едита

[mihasuper]

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

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var k:integer;
begin
if Edit1.Text='0' then //Если ввелиноль, то после него
                            //должна стоять запятая
                            //либо только удалить его
  if not(key in [',',#8]) then key:=#0;
if key in['0'..'9',',',#8] then //разрешаем вводить только числа
  begin
  if key=',' then //проверка для только одной запятой
    begin
    if Edit1.Text='' then key:=#0;
      For k:=1 to Length(Edit1.Text) do
      begin
      if Edit1.Text[k]=',' then key:=#0;
      end;
    end;
  end else key:=#0;
end;

Идеальное решение
Если не надо запятую, то проверку только для одной запятой можно убрать

[Utkin]

А еще есть TSpinEdit...

[JTG]

В т.ч. отрицательные с точкой
http://programmersforum.ru/showpost....7&postcount=24

Целые можно через GetWindowLong/SetWindowLong ES_NUMBER или в диспетчере свойств (в делфях старше 7 вроде)

[Voody]

в 2010 у Edit есть свойство NumbersOnly