Главная страница
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.032 c
4-1079555272
KPV-10k
2004-03-17 23:27
2004.04.11
Получить SID пользователя...


1-1079960435
Kupnu4
2004-03-22 16:00
2004.04.11
Как заставить картинку мигать?


1-1080247734
Олег
2004-03-25 23:48
2004.04.11
StringGrid и динмамический массив


14-1079296999
Gero
2004-03-14 23:43
2004.04.11
Написание Shell


7-1079610137
Delph1
2004-03-18 14:42
2004.04.11
Как получить каталог рабочего стола в Delphi?