Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

TEdit: проверка на ввод информации   Найти похожие ветки 

 
В л а д и м и р ©   (2004-04-05 21:15) [0]

На форме расположен Edit1, кнопки "< Назад", "Далее >" и "Отмена". При создании формы свойство Enabled кнопки "Далее >" установлено в False. При этом мне необходимо проверить, что в окно редактирования был введен текст и активировать кнопку Далее, а если после этого текст был стерт пользователем, опять сделать ее неактивной.
Я пытался воспользоваться событием OnChange кнопки, где проверял, не равно ли Edit1.Text="". Но это мне кажется очень примитивным, да и можно вначале ввести кучу пробелов и пр. гадости. К тому же получалось, если я начинаю вводить текст в окне редактирования, кнопка активируется, однако когда весь текст стирался, она продолжала быть активной.
Каким образом можно сделать всю эту проверку более эффективной?


 
Anatoly P   (2004-04-05 21:22) [1]

Trim


 
sir John ©   (2004-04-05 21:48) [2]

Чотбы после стирания деактивировать кнопку можно сделать вот так:

if Edit1.Text <> "" then
btn_Next.Enabled :=  true;
if Edit1.Text = "" then
btn_Next.Enabled :=  false;


 
sir John ©   (2004-04-05 21:49) [3]

сорри.. Этот код надо поставить в обработчик OnChange Edit-а


 
ламер ©   (2004-04-05 21:58) [4]

> sir John ©   (05.04.04 21:48) [2]
а ключевое слово else вы принципиально не используете? :)

по теме:
btnNext.Enabled := Trim(Edit1.Text) <> "";


 
sir John ©   (2004-04-05 22:04) [5]

я ж не говорю, что мой код обязан служить образцом :)



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

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

Наверх




Память: 0.47 MB
Время: 0.025 c
3-1080652383
Ivan
2004-03-30 17:13
2004.04.25
Сумма по QRExpr


14-1080810306
Rouse_
2004-04-01 13:05
2004.04.25
Кто как сегодня провел или собирается провести...


14-1080902712
V-Isa
2004-04-02 14:45
2004.04.25
Оцените компонент AnimIcon!


14-1080746752
AlexKniga
2004-03-31 19:25
2004.04.25
Кто-нибудь установил Win2K/XP на SATA RAID без floppy?


1-1081264515
Norfolk
2004-04-06 19:15
2004.04.25
Запись TStrings в файл