Ошибка закрытия основной формы из другой...

← →
rra © (2006-05-25 11:04) [0]

Всем привет!
Есть 2 формы. В основной идет вызов 2-й модальной формы слудующим образом:
procedure TmForm.FormActivate(Sender: TObject); begin fmUserSelect := TfmUserSelect.Create(self); fmUserSelect.ShowModal; fmUserSelect.Free; end;

Во 2 форме в обработчике нажатия кнопки идет проверка каких-то условий и в случае невыполнения - полностью выход из программы:
procedure TfmUserSelect.Button_OkClick(Sender: TObject); begin ... if ... then ... else begin fmUserSelect.Close; mForm.Close; end; end;

Так вот при выполнении закрытия основной формы выдает ошибку: "Cannot change Visible in OnShow or OnHide" и в отладчике выделяется строка: fmUserSelect.Free; из
procedure TmForm.FormActivate
Не могу понять, почему? Такая конструкция у меня используется в нескольких программах и работает нормально. Что не так, подмогните, плз!

← →
Сергей М. © (2006-05-25 11:11) [1]

procedure TfmUserSelect.Button_OkClick(Sender: TObject);
begin
...
if ...
then ...
else
begin
Close;
Application.Terminate;
end;
end;

← →
rra © (2006-05-25 11:15) [2]

Спасибо...жестко, но действенно)...

Совсем не понимаю, зачем при получении фокуса первой формой поверх нее вдруг должна (еще и модально!) выдрыгиваться другая форма.
А ошибка происходит из-за твоего непонимания событийной природы винды.
Когда ты закрываешь вторую форму управление должно передаваться на fmUserSelect.Free, но при этом у тебя происходит попытка закрытия первой формы одновременно.
Т.е., простыми словами, ты пытаешься показать форму 1 (обработчик FormActivate) и одновременно пытаешься ее зарыть (обработчик кнопки 2-й формы). В этом и конфликт.
Поменяй логику программы.
Например, закрывай 2-ю форму, возвращая ModalResult (например, mrCancel). После чего if( fmUserSelect.ShowModal = mrCancel ) then Application.Terminate;

Ошибка закрытия основной формы из другой... Найти похожие ветки