Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Вниз

Ввод только цифр в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c