Перехват ошибки, или как деактивировать все едиты одновременно

@malayka · Регистрация: 20.04.2010

Author24 — интернет-сервис помощи студентам

на форме есть лукапкомбобокс и много много эдитов, есл не трогая его попытаться сохранить данные через эдиты выходит ошибка типа "необходимо наличие связной записи в такой-то таблице". НО это то я понимаю зачем=)
на сохранении я перехватываю ошибку

Delphi

procedure TForm3.Button1Click(Sender: TObject);
begin
if datamodule2.std.Modified then
  try
  datamodule2.std.post;
  except
  showmessage('Определите группу для студента')
  end;
 
datamodule2.adoquery1.Requery;
close;
 
end;

, ели исключение возникает сообщение-то показывается, НО ошибка следом за ним тоже указывается! нужно его вот убрать=)

есть другой пусть решения проблемы: вырубить все эдиты пока не будет выбрана та самая "связная запись" в локапкомбобокс. как в этом случае обращаться ко всем эдитам сразу(DBEdit-ам есл есть разница в данном случае) чтобы "едит.энаблед:=фалс"? ну и потом обратно включать как-только будет выбрана запись.. просто эдитов предполагается много, и не хотелось бы прописывать их всех=)) должен быть более рациональный выход))

@_zz_ · 11.05.2010, 08:48

Сообщение от malayka

на сохранении я перехватываю ошибку

Delphi

procedure TForm3.Button1Click(Sender: TObject);
begin
if datamodule2.std.Modified then
  try
  datamodule2.std.post;
  except
  showmessage('Определите группу для студента')
  end;

, ели исключение возникает сообщение-то показывается, НО ошибка следом за ним тоже указывается! нужно его вот убрать=)

Вы скорее всего ошибку наблюдается в режиме отладки(т.е. запускаете программу из под дельфи), попробуйти запустить программу одельно, путем запуска exe-шника. Тогда вы увидите только сообщение

Delphi

1	showmessage('Определите группу для студента')

@malayka · 11.05.2010, 12:15 **[ТС]**

не в этом дело, даже с ехешника стандартную ошибку показывало. на другом форуме подсказали, что нужно дописать exit и все заработало:

Delphi

 
...  
  try
  datamodule2.std.post;
  except
  showmessage('Определите группу для студента');
  exit;
  end;

а что касается второй части вопроса, можно как-то решить?)

@unick12345 · 11.05.2010, 12:25

Delphi

1 2	for i:=0 to controlcount-1 do if (controls[i] is tedit) then (controls[i] as tedit).enabled:=false

@malayka · 11.05.2010, 12:27 **[ТС]**

все верно, уже разобрался)

@malayka · 11.05.2010, 16:18 **[ТС]**

хм.. возник вопрос) как этоже самое запускать из другой формы? допустим едиты на одной форме, а событие на котором прописываешь на другой

@_zz_ · 12.05.2010, 08:27

то же самое? всмысле те же самые эдиты? и какое событие происходит на другой форме ?

по идеи можно перечислить все компоненты через (controls[i] is tedit) на любой форме любого компонента, наследника TWinControl так как у них есть свойство controls. Для этого необходимо указать parent-а этих TEdit-ов(parent - родитель, т.е. тот контрол(окно которое может получить фокус) на котором отображаются компоненты которые ему принадлежат) в твоем случае это скорее всего твоя первая форма.

Delphi

1 2	for i:=0 to From3.controlcount-1 do if (From3.controls[i] is tedit) then (From3.controls[i] as tedit).enabled:=false

этот код можно вызвать из любой формы, и все эдиты которые расположены на Form3 перейдут в в режим disable

@malayka 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 21
	11.05.2010, 12:27 [ТС]	5
	все верно, уже разобрался) 0

@malayka 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 21
	11.05.2010, 16:18 [ТС]	6
	хм.. возник вопрос) как этоже самое запускать из другой формы? допустим едиты на одной форме, а событие на котором прописываешь на другой 0

	12.05.2010, 08:27