Окно закрывается не смотря на EExternalException

[DeveloPerchik]

Здравствуйте!

Совершенно бредовая проблема - есть два схожих диалога ввода данных в обоих работает одинаковая схема обработки кнопки "Сохранить", а именно срабатывает блок Проверки проверяя все требуемые поля на ввод и если всё введено верно - срабатывает блок Сохранения и потом закрывается окно. Но если какое-то поле для ввода заполнено неправильно - возникает ошибка типа EExternalException которая останавливает выполнение блоков Проверки и Сохранения и возвращает пользователя к правильному заполнению полей. Так вот в одном окне всё отлично пашет, а в другом, если что-либо введено неверно - ошибка выскакивает как должна, но и окно закрывается не дожидаясь исправления данных!!! Проверил вроде всё - в обоих окнах одинаково, но проблема есть... может у вас возникнут предположения из-за чего в одном случае окно закрывается?!

procedure btSaveClick(Sender: TObject);
begin
  if FormValidate then begin
    qryClient.Post;
    ModalResult:=mrOk;
    Close;
  end;
end;

function FormValidate: boolean;
Begin
  Result:=False;
    if ed_CLIENT.Field.IsNull then Raise EExternalException.CREATE('Клиент не указан!');
  ...ещё такие же проверки...
  Result:=True;
end;

[Yurk@]

function FormValidate: boolean;
Begin
  Result:=False;
  if ed_CLIENT.Field.IsNull then 
  begin
    Raise EExternalException.CREATE('Клиент не указан!');
    Exit;
  end;
  ...ещё такие же проверки...
  Result:=True;
end;

[DeveloPerchik]

Должен заметить, что как я и написал выше - схема работы идентична для обоих окон и в случае с одним окном всё работает и без "Exit;"... а значит проблема в чём-то другом... в чем ???

[Sciv]

Все ж таки лучше весь код увидеть а не вот эти:

...ещё такие же проверки...

Потому что по текущему коду я вижу только, что функция FormValidate всегда возвращает true. То ли неудачно вырвано из контекста кода, то ли так и надо - в таком случае прога правильно отрабатывает.

И еще - сами окна одинаково создаются?

[DeveloPerchik]

Все ж таки лучше весь код увидеть а не вот эти: ...ещё такие же проверки...

Аналогичные, просто ещё несколько таких же полей.

отому что по текущему коду я вижу только, что функция FormValidate всегда возвращает true.

Эээ почему же?! А разве EExternalException не прекращает выполнение кода FormValidate ???


Кто как реализует такую функцию проверки полей перед сохранением???

[evg_m]

на проблемной кнопке установлен ModalResult ?

[Yurk@]

А разве EExternalException не прекращает выполнение кода FormValidate ???

а поставить маячок после функции и проверить? ;-)

Кто как реализует такую функцию проверки полей перед сохранением???

я уже написал в п.2 как это сделать без лишней головной боли

[DeveloPerchik]

на проблемной кнопке установлен ModalResult ?

Да, в обоих окнах стоит одно и то же - mrOK. Но одно окно после EExternalException закрывается, а второе после EExternalException не закрывается...

я уже написал в п.2 как это сделать без лишней головной боли

Хотелось бы разобраться в проблеме, а не городить лишний код.

evg_m
Нашёл проблему! Оба окна изначально Visible=False и после создания их ещё приходится дополнительно показывать...
Окно, которое НЕ закрывается при EExternalException показывается методом ".Show;"
Окно, которое ЗАКРЫВАЕТСЯ при EExternalException показывается методом ".ShowModal;"...
Спасибо за наводку!!! ))

Правда возникло неудобство... у меня работал код:
If Forma.ShowModal=mrOk then Dataset.FullRefresh;
Теперь из-за проблем с ShowModal нет возможности определить был ли mrOK... ((
Может посоветуете что-то?

[evg_m]

а в чем проблема вы же и так ставите

procedure btSaveClick(Sender: TObject);
begin
  if FormValidate then begin
    qryClient.Post;
    ModalResult:=mrOk;
    Close;
  end;
end;

в нужное время (здесь при модальном показе даже Close не нужен.)
т.е.изначально на кнопке нет mrOK.(чтобы окно не закрывалось по кнопке)
при успешной проверке

{form.}ModalResult:=mrok;

и окно будет закрыто (и проверить можно)

if formX.modalResult =mrok

да и так будет работать

if formX.showModal =mrok

либо я чего-то не понимаю?

[DeveloPerchik]

Опишу какое поведение необходимо и какие возникли проблемы в реализации...

Нужно, чтобы:
+ при нажатии кнопки в каталоге создавалось окно которое Visible=False;
+ соот это окно нужно как-то показать (form.Show или form.ShowModal), хотелось бы form.Show, чтобы можно было из каталога открывать множество таких мелких окон;
+ если ModalResult=mrOK повесить на кнопку, то возникают те баги с проверкой формы, что описаны в этой теме. Ладно, убираем mrOK с кнопки, а выводим ModalResult=mrOK кодом в нужный момент после проверки FormValidate;

Но есть проблема - если сначала сделать form.Show а потом поставить ожидание от формы модального ответа типа [if formX.modalResult=mrOK] то в окне возникает ошибка "Нельзя видимое окно сделать модальным"...

Можно ли используя ModalResult=mrOK сделать окно не модальным (чтобы открывать множество таких окон) но с целью после закрытия любого из мелких окон затем в родительском окне каталога обработать событие ModalResult=mrOK (нужно сделать Dataset.Refresh)??

Или через ModalResult никак, только создавать в каталоге отдельное property??
+