Как программно закрыть все открытые модальные формы перед сворачиванием главной формы в трей?

[SkAndrew]

Добрый день!

В моей программе есть главная форма и две модальные (совет дня и о программе), программа сворачивается в трей (используется компонент TCoolTrayIcon). Когда открыты обе модальные формы и свернуть в трей главную форму все нормально, но если восстановить после этого главную форму, то компилятор выдает ошибку:

проект такой-то raised exception class EInvalidOperation with message ' Cannot make a visible window modal'. Process stopped!

В чем ошибка и как программно предварительно перед скрытием главной формы в трей закрыть все модальные формы программно?

Спасибо

[mutabor]

Когда открыты обе модальные формы

А как пользователь может запустить вторую модальную форму не закрыв первую?

как программно предварительно перед скрытием главной формы в трей закрыть все модальные формы программно?

По событию скрытия окна, или на клик в трее привяжись, посмотри в компоненте события его, в процедуре проверяй, если окна открытые то закрывай их.

[SkAndrew]

Во-первых можно одновременно открыть хоть десяток модальных форм, коды эти открыты в Интернете, во-вторых меня заинтересовала сама задача если такой случай произойдет и я забуду закрыть открытые модальные окна и сверну в трей главное окно, то как программно закрыть модальные окна? Спасибо за идеи.

[mutabor]

Модальное окно на то и модальное чтобы не позволять продолжить работу пока его не закроешь. Объясните мне тайный смысл открывать несколько модальных окон сразу.
Модальное окно

как программно закрыть модальные окна?

Form.Close

[SkAndrew]

Да нет никакого тайного смысла, просто интересна сама ситуация и пути ее решения!
например так можно открывать хоть сотню окон одновременно:

procedure TfrmMain.miAbout1Click(Sender: TObject);
begin
  with TfrmAboutus.Create(nil) do
  try
      Enter();
  finally
      Free;
  end;
end;

Одно модальное окно, например, можно запустить при старте главного окна (совет дня, например), а второе из раздела всплывающего popup меню иконки в трее (например, о программе) и вот уже открыты три окна, два из них модальные. Вопрос, как корректно закрыть модальные окна в данном случае и по клику на иконке в трее восстановить главную форму без того чтобы компилятор выдал ошибку, приведенную мною выше.
Может кто-то может продолжить дискуссию? Хотелось бы детально разобраться в этом вопросе.
Спасибо.

[mihali4]

Да что толку продолжать пустую болтовню ?
Вы же неспособны понять то, что вам привел mutabor:

Модальное окно на то и модальное чтобы не позволять продолжить работу пока его не закроешь.

[SkAndrew]

это не пустая болтавня, а конкретное событие, которое может произойти с достаточно большой вероятностью. так что я не оставляю надежды разобраться в этом случае. Спасибо

[FaTaL]

Тогда вопрос такой, как Вы сворачиваете своё главное окно в трей, если оно недоступно, т.к. открыто модальное?!

[MalCer]

тогда напишите вместо

Form2.ShowModal;

код

Form2.Show;

, тогда все прекрасно свернется