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

Компонент tEdit   Найти похожие ветки 

← →
set666   (2011-07-12 01:49) [0]

Как сделать так что бы в компонент tEdit можно было ввводить только числа, то есть цифры и запятую ?

---

← →
Германн ©   (2011-07-12 02:26) [1]

В OnKeyPress проверять какая клавиша нажата.

---

← →
set666   (2011-07-12 02:39) [2]

ну это понятно допустим что я знаю значение переменной key если оно мне неподходит то что делать ?

---

← →
Германн ©   (2011-07-12 03:00) [3]

> если оно мне неподходит то что делать ?

Key:=#0;

---

← →
Anatoly Podgoretsky ©   (2011-07-12 10:02) [4]

> set666  (12.07.2011 01:49:00)  [0]

Это не живое и тебя побьют

---

← →
Омлет ©   (2011-07-12 10:17) [5]

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
 Key := chr(integer(Key in ["0".."9", ","]) * ord(Key));
end;


---

← →
Smile   (2011-07-12 10:21) [6]

Лучше вместо "," - DecimalSeparator,
но это не решает проблему ввода более одного сепаратора, да и много других проблем ...

---

← →
Игорь Шевченко ©   (2011-07-12 10:59) [7]

Омлет ©   (12.07.11 10:17) [5]

Давить за такой код

---

← →
Омлет ©   (2011-07-12 11:17) [8]

> Игорь Шевченко ©   (12.07.11 10:59) [7]

Согласен )

---

← →
Gu   (2011-07-12 11:46) [9]

там же вроде в маскедит все это есть

---

← →
Sha ©   (2011-07-12 12:38) [10]

> set666

Некоторые еще длину ввода ограничивают.
Лечится переводом программиста в операторы на недельку-другую.

---

← →
Dennis I. Komarov ©   (2011-07-12 15:46) [11]

проверять надо после, а не во время...

---

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

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



Память: 0.47 MB
Время: 0.006 c