Закрыть все дочерние (модальные и.д.) окна программы

[designer999]

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

Вообще так, в программе время от времени всплывают диалоговые окна, формы, модальные диалоговые окна (произвольно), как можно одним махом закрыть все эти окна ? (не зная Handle, заголовок и тд.) , другими словами закрыть всё кроме главной формы.

[Вадим Мошев]

Может сделать главную форму модальной?

[designer999]

Сообщение от Вадим Мошев

Может сделать главную форму модальной?

и что это даст? другие формы\окна не будут открываться?)

[Вадим Мошев]

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

[Аватар]

Сообщение от Вадим Мошев

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

Чет не понял. Ну вывалилась из основной модальной другая модальная. Каким образом она не будет мешать основной? Фокус то на ней будет.

[Вадим Мошев]

Ну, а что если установить фокус на главную? Это возможно?

[designer999]

какие ещё способы предложите?)

[Аватар]

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

какие ещё способы предложите?)

Можно посмотреть в сторону Screen.Forms. И почему Handle узнать нельзя? И речь идет о сторонней или собственной программе?

[Вадим Мошев]

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

какие ещё способы предложите?)

А предложенные работают?

[chertovich]

  for I := 0 to Screen.FormCount - 1 do
  begin
    with Screen do
    begin
      if Forms[I].Name <> 'Form1' then Forms[I].Close;
    end;
  end;