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

Вниз

edit   Найти похожие ветки 

← →
Бэтман   (2008-02-02 23:45) [0]

Как в компоненте edit разрешить ввод только цифр ? То есть значение должно быть целочисленое ?

---

← →
{RASkov} ©   (2008-02-02 23:53) [1]

if not Key in ["0".."9", #8] then Key:=#0; в KeyPress
PS: В Edit.Text всегда только строковое значение...

---

← →
KilkennyCat ©   (2008-02-02 23:54) [2]

> #8

это же только один вариант удаления?

---

← →
Alral ©   (2008-02-02 23:58) [3]

Как вариант можно проверять при использовании компонента
try
a:=StrToInt(Edit1);
...
except
ShowMessage("Only numbers allowed");

---

← →
Семеныч   (2008-02-02 23:58) [4]

Вариант 1 - установить стиль окна.
SetWindowLong(Edit1.Handle, GWL_STYLE,
 GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

Вариант 2 - обработать OnKeyPress:
if not (Key in [ #8, "0".."9"]) then
 Key := #0;

Дополнительно придется обрабатывать вставку из буфера обмена.

---

← →
Бэтман   (2008-02-03 00:01) [5]

if not Key in ["0".."9", #8] then Key:=#0; в KeyPress вот на эту строчку компилятор ругаеться (
ufMain.pas(1930): Operator not applicable to this operand type

---

← →
{RASkov} ©   (2008-02-03 00:04) [6]

> [5] Бэтман   (03.02.08 00:01)

Скобки поставь :(
См [4]

---

← →
Бэтман   (2008-02-03 00:04) [7]

#8 а это зачем ?

---

← →
{RASkov} ©   (2008-02-03 00:07) [8]

> [7] Бэтман   (03.02.08 00:04)

Это код клавиши BackSpace..
А вот для чего - догадался? :)

---

← →
Бэтман   (2008-02-03 00:08) [9]

Понятно всем спасибо за помощь )

---

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

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

Наверх

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