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

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

← →
новичок_из_сыктывкара ©   (2004-03-25 20:05) [0]

Надо чтобы в TEdit можно было вводить только цифры, а если присутсвуют буквы то вывести сообщение об ошибке!!Помогите пожайлуста..подскажите способ...как сделать что б "отлавливались буквы"

---

← →
Rouse_ ©   (2004-03-25 20:18) [1]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ["1".."9"]) then
 begin
   Key := #0;
   ShowMessage("Обана !!! БукЫвка :)");
 end;
end;

---
Желаю успехов

---

← →
новичок_из_сыктывкара ©   (2004-03-25 20:21) [2]

ага...

---

← →
новичок_из_сыктывкара ©   (2004-03-25 20:22) [3]

а вот если user допустил отепчатку то как ему стереть это (я имею ввиду что клавиша bakspase работать не будет..., т.к. описали мы тольок от 1 до 9)

---

← →
Rouse_ ©   (2004-03-25 20:33) [4]

if not (Key in ["1".."9", #8]) then

---

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

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



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