Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2011.10.30;
Скачать: [xml.tar.bz2];

Вниз

Компонент 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 вся ветка

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

Наверх





Память: 0.46 MB
Время: 0.004 c
1-1270107962
Delp
2010-04-01 11:46
2011.10.30
Вопрос по парсингу xml-файлов


2-1310367651
Gu
2011-07-11 11:00
2011.10.30
перемешать стринглист


15-1309781468
Kerk
2011-07-04 16:11
2011.10.30
База данных по документам министерства обороны за 1941-1945


1-1270103659
Kolan
2010-04-01 10:34
2011.10.30
Constant expression violates subrange bounds (nrComm)


1-1269856808
Локара
2010-03-29 14:00
2011.10.30
Где Delphi 7 хранит инф-цию о пакетах





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский