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

Вниз

А как сделать, чтобы в TEdit e можно было вводить только цифры?   Найти похожие ветки 

← →
lovres   (2003-09-23 13:13) [0]

сабж...

---

← →
clickmaker   (2003-09-23 13:15) [1]

Использовать TMaskEdit или

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ["0".."9", #8]) then Key:=#0;
end;

---

← →
lovres   (2003-09-23 13:18) [2]

а #8 что за клавиша?

---

← →
Song   (2003-09-23 13:21) [3]

BackSpace

---

← →
clickmaker   (2003-09-23 13:21) [4]

> lovres © (23.09.03 13:18) [2]

Backspace. Если конечно, не хочешь, чтоб было по принципу "юзер ошибается только один раз" :)

---

← →
lovres   (2003-09-23 13:30) [5]

Блин, прикольно получилось, как раз самое то что надо цифры, backspace, delete, стрелки...Спасибо!!!

---

Страницы: 1 вся ветка

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

Наверх

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