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

Вниз

edit1   Найти похожие ветки 

 
ymin   (2002-04-23 13:51) [0]

Как написать код, чтобы в Tedit1 можно было написать только число от 1 до 300?


 
Anatoly Podgoretsky   (2002-04-23 13:56) [1]

Зачем ограничиваешь пользователя, пусть пишет что угодно, а ты проконтролируй результат.


 
ymin   (2002-04-23 13:57) [2]

а простите как?


 
gek   (2002-04-23 13:58) [3]

Обработай OnExit


 
Андрей Сенченко   (2002-04-23 14:03) [4]

Можно конечно контролировать OnChange, но уж слишком громоздко получится


 
Игорь Шевченко   (2002-04-23 14:06) [5]

День добрый,

А не проще ли использовать TRxCalcEdit и установить у него Min и Max ?
И пользователю приятнее будет тем, что он не сможет ввести что угодно и получить сообщение об ошибке при проверке, а сразу поймет, что вводить можно только число от 1 до 300 :-))

С уважением,


 
ymin   (2002-04-23 14:07) [6]

>> gek
а как это?
Например??


 
ymin   (2002-04-23 14:08) [7]

а где взять это? TRxCalcEdit


 
gek   (2002-04-23 14:26) [8]

procedure edit1onexit(sender:tobject);
var
i:integer;
begin
i:=strtointdef(edit1.Text,0);
if (i= 0)or(i>300)then
begin
Showmessage("Ну ну")
edit1.SetFocus;
end;
end;


 
Андрей Сенченко   (2002-04-23 14:43) [9]

>> Игорь Шевченко © (23.04.02 14:06)
>> А не проще ли использовать TRxCalcEdit

В данном случае не проще. Судя по постам, ymin © только начинает что-то по серьезному писать и вроде как стремится понять то, что делает.
Используя все готовенькое, ИМХО, сложно научиться чему-либо. Пусть уж пару раз сам сделает то, что сделали разработчики RX ( кстати я не думаю, что у них этот вопрос решен кардинально в сторону от обработки событий ввода ), а потом в случае необходимости срочно что-то сделать юзает сторонние наборы компонент


 
Song   (2002-04-23 14:46) [10]

На onChange Вам нужно сначла проверять вводит ли пользователь числа, а потом переводить в число и проверять больше ли оно 300


 
Anatoly Podgoretsky   (2002-04-23 14:52) [11]

Нет смысла делать какие либо проверки в onChange достаточно про верить при выходе или при закрытии. Закрытие может произойти и без выхода.


 
PaRL   (2002-04-23 14:54) [12]


> Используя все готовенькое, ИМХО, сложно научиться чему-либо.

Ага. Я когда совсем чайником был и когда списывал примеры из книги, это нихрена не помогло научиться чему-либо, ну разве что несколько функций узнавал, а вот когда сам скрипя зубами начнешь разбираться, тогда и результат будет.


 
Игорь Шевченко   (2002-04-23 14:59) [13]

День добрый, Андрей Сенченко ©,


> Используя все готовенькое, ИМХО, сложно научиться чему-либо


Это так, но при этом, обычно подразумевается собственная мыслительная работа или изучение учебных пособий/чужих исходных текстов, а не поиски готовых ответов на вопрос: "А как ...?"


> Пусть уж пару раз сам сделает то, что сделали разработчики
> RX


Вы это всерьез? :-)

С уважением,


 
Андрей Сенченко   (2002-04-23 16:37) [14]

>> Игорь Шевченко © (23.04.02 14:59)
>> Вы это всерьез? :-)

Применительно к конкретному классу TRxCalcEdit - а почему бы и нет ? :::::)))))))))


 
Shrek   (2002-04-23 17:12) [15]

только onchange.
или компонент SpinEdit


 
В.И.Чапаев   (2002-04-24 04:18) [16]

в событии onkeypress пишешь case Key of
"0".."9": ;
#8: ;
#13: ;
else key:=chr(0);
end;


а в onchange
if strtoint(edit1.text)>300 then edit1.text:=inttostr(300);
if strtoint(edit1.text)<1 then edit1.text:=inttostr(1);





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

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

Наверх




Память: 0.48 MB
Время: 0.005 c
1-17573
Чужой
2002-04-22 12:58
2002.05.06
Исходник чтения/записи текстового файла


1-17547
Andrey007
2002-04-23 17:15
2002.05.06
Как ловить движение мыши над TRadioGroup?


14-17685
perov
2002-03-29 06:29
2002.05.06
Частота монитора


14-17678
lipskiy
2002-03-04 15:48
2002.05.06
Антивирусная защита программы


4-17725
amamed_3071
2002-03-01 08:43
2002.05.06
Помагите с Attach -ом





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский