Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1080300539
Ev1972
2004-03-26 14:28
2004.04.11
Как отследить клик за пределами модального окна?


7-1079803900
$tranger
2004-03-20 20:31
2004.04.11
Инфо из БИОСа


7-1075138348
$tranger
2004-01-26 20:32
2004.04.11
Инфо о железе


14-1079297724
Delphin
2004-03-14 23:55
2004.04.11
Просто интересное Интервью с бывшим сотрудником Microsoft..


3-1081844704
Term
2004-04-13 12:25
2004.04.11
Компоненты InterBase Admin