| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

rra ©   (2006-05-25 11:04:00) 

Всем привет!
Есть 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
Не могу понять, почему? Такая конструкция у меня используется в нескольких программах и работает нормально. Что не так, подмогните, плз!

---

Desdechado   (2006-05-25 11:34:00) [1]

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

---

rra   (2006-05-25 11:15:00) [2]

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

---

Сергей М.   (2006-05-25 11:11:00) [3]

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

---

Наверх