[GorMax]

Здравствуйте, подскажите пожалуйсто как сделать так, чтоб в компонент TEdit можно было вводить только числа??? Я как то раньше делал это через множество, но вот сейчас сижу и не могу вспомнить как это осуществляется.....

[lmikle]

Код:

procdure TForm1.Edit1KeyPress(...);
begin
  If Key >= #32 Then
    If Not (Key In ['0'..'9']) Then Key := #0;
end

[Alexo]

Еще обычно нужна проверка на #8 (бекспейс)

[lmikle]

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

Еще обычно нужна проверка на #8 (бекспейс)

Прочти внимательно код.
Я не блокирую служебные символы, только печатные.

[GorMax]

Точно, именно так я раньше и делал Большое спасибо за помощь, а MaskEdit использовать в моем случае не удобно.

[Alexo]

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

Прочти внимательно код.
Я не блокирую служебные символы, только печатные.

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

[GorMax]

да какая разница, программка от этого больше весить не станит)))

[lmikle]

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

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

Ага, а что они делают???
Для Edit'а это не критично.

[cotseec]

имхо проще пользовать TMaskEdit (вкладка Additional) у этого компонента есть свойство EditMask, компонент позволяет вводить только цифры, причем маска настраивается, работать с ним - как с обычным TEdit