Проверка условия - БД в Delphi

Luciferium · 05.06.2007, 14:38

Как сделать проверку ввода всех или конкретно нужных полей? Если кокое-то поле не введено, то выдать ошибку. Ещё хочу сделать, чтобы пока не введены нужные поля, кнопка подтверждения ввода была не активна, после ввода - активна. Как это сделать все? Заранее спасибо.

Alex21 · 05.06.2007, 16:23

В обработчике событий каждого Edit'а или любого другого компонента OnChange:
////////////
begin
if (Edit1.Text='')or(Edit2.Text='')or. .. then
begin
MessageDlg('Не все поля заполнены! '+#13+ 'Заполните все поля!', mtError, [mbOk],0);
Button1.Enabled:=false;
end else
begin
Button1.Enabled:=true;
end;
end;
/////////////////

05.06.2007, 16:23	#2
Alex21 With best regards Участник клуба Регистрация: 20.04.2007 Сообщений: 1,448	В обработчике событий каждого Edit'а или любого другого компонента OnChange: //////////// begin if (Edit1.Text='')or(Edit2.Text='')or. .. then begin MessageDlg('Не все поля заполнены! '+#13+ 'Заполните все поля!', mtError, [mbOk],0); Button1.Enabled:=false; end else begin Button1.Enabled:=true; end; end; ///////////////// Life is too short, play more... Как правильно задавать вопросы

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отмена условия, возврат к изначальному	Дикий	Помощь студентам	5	14.06.2008 01:19
Не могу создать условия	Еленка	Помощь студентам	4	21.05.2008 12:20
Пропуск условия if. Delphi 7	Дикий	Помощь студентам	11	12.05.2008 22:49
Оператор условия	[Smarik]	Помощь студентам	8	22.02.2008 18:49
Использование оператора условия	Virtson	Microsoft Office Access	2	15.12.2006 16:13

05.06.2007, 14:38	#1
Luciferium Пользователь Регистрация: 29.05.2007 Сообщений: 10	Проверка условия Как сделать проверку ввода всех или конкретно нужных полей? Если кокое-то поле не введено, то выдать ошибку. Ещё хочу сделать, чтобы пока не введены нужные поля, кнопка подтверждения ввода была не активна, после ввода - активна. Как это сделать все? Заранее спасибо.