Ввод только цифр в TEdit

← →
^^^Dragon^^^ © (2003-07-24 21:37) [0]

Здравствуйте, уважаемые Мастера!
Я смог блокировать ввод букв в поле TEdit:
procedure TMain.sumKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ["0".."9", ","]) then key := #0; end;
Но возникла такая проблема: блокировался BackSpace. Как вернуть его на место? Помогите пожалуста решить эту проблему. Заранее спасибо.

← →
Suntechnic © (2003-07-24 21:40) [1]

Да поставь окошку стиль ES_NUMBER и не мучайся.

← →
^^^Dragon^^^ © (2003-07-24 21:51) [2]

Это где? Стиль чего? Просто стиля там нет...

← →
Song © (2003-07-24 21:54) [3]

Добавь в квадртные скобки Chr(VK_BACK)

← →
Suntechnic © (2003-07-24 21:59) [4]

>^^^Dragon^^^ ©
Где-нибудь на OnCreate формы напиши:

SetWindowLong(edit1.handle, GWL_STYLE, GetWindowLong(edit1.handle, GWL_STYLE) or ES_NUMBER);

ОГРОМНОЕ СПАСИБО!!!! ВСЕ ЗАРАБОТАЛО!!!

а чем тебя SpinEdit не устраивает?

Ввод только цифр в TEdit Найти похожие ветки