Текущий архив: 2003.08.07;
Скачать: CL | DM;
Вниз
Ввод только цифр в 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);
← →
^^^Dragon^^^ © (2003-07-24 21:59) [5]ОГРОМНОЕ СПАСИБО!!!! ВСЕ ЗАРАБОТАЛО!!!
← →
Immortal_Death © (2003-07-24 23:02) [6]а чем тебя SpinEdit не устраивает?
Страницы: 1 вся ветка
Текущий архив: 2003.08.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
