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 достаточно про верить при выходе или при закрытии. Закрытие может произойти и без выхода.

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

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

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

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

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

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

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

С уважением,

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

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

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

в событии 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);

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