Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c