Защита от некорректного ввода в Edit (Delphi)

[nika17]

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


Очень нужно!!!!!!!!!!

[Zer0]

рассматриваете событие OnKeyUp и анализируете параметр Key (код нажатой клавиши), и если она не попадает в пределы цифр и не является Backspace'ом - то выдаете сообщение

[Вадим Мошев]

Сообщение об ошибке можно выдать так:

MessageDlg('Ошибка!', mtError, [mbOK], 0);

Код клавиши BackSpace = 8

Zer0

Только почему KeyUp? Обычно я пользуюсь OnKeyPress и у меня всё хорошо...

[p51x]

MaskEdit не в моде?

[Zer0]

2 Вадим Мошев
кстати да, по поводу KeyUp меня что-то глюкнуло, в идеале конечно лучше обрабатывать и KeyUp и KeyDown, ибо бывали уже случаи, но не думаю что ТС нужна такая проверка
2 p51x
MaskEdit не годится когда неизвестно точное число символов (можно конечно задать кучу цифр сразу в маске с возможностью оставить некоторые пустыми, но ИМХО неудобно)