Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.07.2012, 12:02   #1
lypyotr
Пользователь
 
Регистрация: 19.07.2011
Сообщений: 33
По умолчанию Поля

Если все 3 edit'a заполнены, то свойство enabled у Button меняется на true. Помогите пожалуйста!
lypyotr вне форума Ответить с цитированием
Старый 17.07.2012, 12:16   #2
TorrentTor
Форумчанин
 
Аватар для TorrentTor
 
Регистрация: 02.11.2011
Сообщений: 105
По умолчанию

Если считать пробелы так же заполнением Edit-а
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')
  then Button1.Enabled:=true
  else Button1.Enabled:=false;
end;
TorrentTor вне форума Ответить с цитированием
Старый 17.07.2012, 12:18   #3
lypyotr
Пользователь
 
Регистрация: 19.07.2011
Сообщений: 33
По умолчанию

Цитата:
Сообщение от TorrentTor Посмотреть сообщение
Если считать пробелы так же заполнением Edit-а
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')
  then Button1.Enabled:=true
  else Button1.Enabled:=false;
end;
Спасибо, но хотелось бы исключить пробелы тоже
lypyotr вне форума Ответить с цитированием
Старый 17.07.2012, 12:20   #4
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
По умолчанию

Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Trim(Edit1.Text<>'')) and (Trim(Edit2.Text<>'')) and (Trim(Edit3.Text<>''))
  then Button1.Enabled:=true
  else Button1.Enabled:=false;
end;
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 17.07.2012, 12:28   #5
lypyotr
Пользователь
 
Регистрация: 19.07.2011
Сообщений: 33
По умолчанию

Цитата:
Сообщение от artemavd Посмотреть сообщение
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Trim(Edit1.Text<>'')) and (Trim(Edit2.Text<>'')) and (Trim(Edit3.Text<>''))
  then Button1.Enabled:=true
  else Button1.Enabled:=false;
end;
Ошибонька: [DCC Error] Unit2.pas(64): E2250 There is no overloaded version of 'Trim' that can be called with these arguments
lypyotr вне форума Ответить с цитированием
Старый 17.07.2012, 12:35   #6
TorrentTor
Форумчанин
 
Аватар для TorrentTor
 
Регистрация: 02.11.2011
Сообщений: 105
По умолчанию

Вот так
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (trim(Edit1.Text)<>'') and (trim(Edit2.Text)<>'') and (trim(Edit3.Text)<>'')
  then Button1.Enabled:=true
  else Button1.Enabled:=false;
end;

Последний раз редактировалось TorrentTor; 17.07.2012 в 12:43.
TorrentTor вне форума Ответить с цитированием
Старый 17.07.2012, 13:55   #7
SovereignSun
Форумчанин
 
Регистрация: 22.11.2011
Сообщений: 127
По умолчанию

Тут проверка только edit1 у человека будет... не проще на exit из каждого edit сделать такое?
SovereignSun вне форума Ответить с цитированием
Старый 17.07.2012, 14:27   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Цитата:
Тут проверка только edit1 у человека будет
Edit1Change прицепить на OnChange каждого из эдитов кто не дает?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 18.07.2012, 13:56   #9
[DisAssembleR]
Пользователь
 
Регистрация: 30.06.2011
Сообщений: 28
По умолчанию

Хм, можно вообще через таймер сделать... Как вариант. Или в форме при перемещении мыши.
[DisAssembleR] вне форума Ответить с цитированием
Старый 18.07.2012, 14:36   #10
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Хм, можно вообще через таймер сделать... Как вариант. Или в форме при перемещении мыши.
ОМГ! Зачем?!?!? Чем событие OnChange не угодило то?!?
или задача стоит нагрузить по максимуму процессор или сделать максимально изощрённо?!!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поля Leks123 Помощь студентам 3 07.12.2011 15:23
Измененние цвета фона поля (поля со списком) при редактировании TimRus Microsoft Office Access 2 17.05.2010 21:56
получить данные поля исходя из lookup-поля malayka Помощь студентам 0 21.04.2010 21:19
как получить значение поля грид на основе значения другого lookUp поля malayka БД в Delphi 0 21.04.2010 19:06
Выявление одинаковости значений поля в одной талице по значению поля в другой nikmay SQL, базы данных 4 13.08.2009 12:51