Как определить, показана ли форма модально при переборе форм

[Space]

?

[Viper]

А никак (ИМХО), разве что флаг ей ставить.

[Хакер]

А откуда осуществляется перебор форм? Из кода этой модальной формы ведь?

[Viper]

А откуда осуществляется перебор форм? Из кода этой модальной формы ведь?

Кстати, да. Больше то неоткуда. Только ведь форма может и не знать о своей модальности.
З.Ы. ЕМНИП, было обсуждение такого вопроса лет несколько назад. Только вот не помню, а нашли ли решение.

[Space]

из процедуры обработки клика на иконке в трее. У меня возникло желание скрывать все формы проекта при этом действии (модальные и нет) и показывать обратно. Тут и возник такой вопрос...

[Хакер]

Плохое желание. И непонятно, кроме того, зачем определять.

[ANDLL]

Кстати, да. Больше то неоткуда.

Почему неоткуда?

[Space]

Хакер, чё тут непонятного? Чтобы показать окна обратно, надо знать, как была показана форма, так и показать. Кстати, какие преимущества имеет показ форм с указанием родителя (frm.Show vbModal, Me) в сравнении с простым frm.Show vbModal, кроме того, что при выгрузке родителя выгружается и ребёнок?

[Хакер]

ANDLL, потому что при модальном вызове внутри Show инициируется Message-pumping-loop (MPL), который крутится до закрытия модального окна. Возврат в callee не происходит до этого, так что единственный код, который может при этом выполняться, это код, вызванный (косвенно) из MPL. MPL вызывает DispatchMessage для выкачанных сообщений, она в свою очередь вызывает WindowProc, WindowProc же вызывает обработчики событий. Обработчики событий тоже что-то вызывают.

Если смотреть на call-tree, то в период показа модальной формы выполнение не может выйти выше MP-цикла. Если рассматривать только тот код, который написан автором, то можно сказать, что выполнение не может выйти выше обработчиков событий модального окна. Т.е. когда модальное окно показывается, перечисление всех окон в принципе в любом случае производится из обработчиков событий этого окна прямо (т.е. непосредственно) или косвенно (т.е. в обработчики вызвана процедура A, оттуда процедура B, а уже внутри B перечисление).
Это если не выходить за рамки VB. Автор-то вышел.

чё тут непонятного? Чтобы показать окна обратно, надо знать, как была показана форма, так и показать.

Space, архитектура приложения фиговая значит, раз такие проблемы возникают.

с указанием родителя (frm.Show vbModal, Me) в сравнении с простым frm.Show vbModal, кроме того, что при выгрузке родителя выгружается и ребёнок?

Путаешь всё. Это не родитель и ребёнок, а владелец (owner) и подчинённый. Владелец, когда его кончают, прикончит и всех подчинённых. Ни при каких обстоятельствах подчинённые не окажутся под владельцем, они всегда по верх него (для модальных окон это и без факта принадлежания хозяину всегда так).

А отношения родителя и ребёнка это совсем другие отношения. Например если на форме нарисовать PictureBox, а в нём нарисовать кнопку, то главное окно по отношению к PictureBox — родитель, а PictureBox по отношению к главному окну — ребёнок. В то же время PictureBox — родитель по отношению к кнопке, а кнопка — ребёнок PictureBox-а. Отношение это не транзитивно, т.е. кнопка не ребёнок главного окна, хотя безусловно потомок.

[Vi]

Для Хакер:

Код: Выделить всё

' на форму брось таймер

Private Sub Form_Click()
  Dim f As New Form1
  f.Show vbModal, Me
End Sub

Private Sub Timer1_Timer()
  Me.Caption = Date & " " & Time
End Sub


При клике на форму появится новая форма, но во всех будут меняться Заголовки.

PS
Забыл про тему написать.

AFAIR, окна под модальным имеют атрибут WS_DISABLED.
#define WS_DISABLED 0x08000000L
и могут быть проверены IsWindowEnabled.

[Space]

а есть ли альтернатива frm.Show vbModal, Me, но чтобы выполнение кода продолжилось после вызова frm.Show vbModal, Me?

[Viper]

а есть ли альтернатива frm.Show vbModal, Me, но чтобы выполнение кода продолжилось после вызова frm.Show vbModal, Me?

Уж что нибудь одно - либо продолжение выполнения кода после отображения формы, либо модальное отображение формы.

[tyomitch]

а есть ли альтернатива frm.Show vbModal, Me, но чтобы выполнение кода продолжилось после вызова frm.Show vbModal, Me?

Уж что нибудь одно - либо продолжение выполнения кода после отображения формы, либо модальное отображение формы.

Между тем, есть и без проблем.
Показать немодально как owned и задизаблить все остальные окна.

[Space]

задизаблить - это Enabled=False или что ты имел ввиду? Нет, этот вариант сложноватый в плане того, что надо будет устанавливать Enabled=True после закрытия активного окна, определяя как-то, какое окно будет активно следующим (интересно, какое, если бы мы оставили всем окнам Enabled=False?)
Viper, мне надо завершить выполнение цикла и процедуры после frm.Show vbModal, Me и всё, дальше окно как модальное не должно давать доступа к другим окнам и всё как обычно...

[iGrok]

Viper, мне надо завершить выполнение цикла и процедуры после frm.Show vbModal, Me и всё, дальше окно как модальное не должно давать доступа к другим окнам и всё как обычно...

И при этом что-то тебе мешает сначала завершить цикл, а потом показать окно?

[Space]

конечно, иначе бы и вопроса не возникало...

[iGrok]

И это совсем никак неодолимое что-то?

[Vi]

Между прочим, есть простой и ясный путь запуска немодальной формы, иммитирующий модальность. Правильно говорит tyomitch: нужно Показать немодально как owned и задизаблить все остальные окна. А момент определить просто - по событиям.

Код: Выделить всё

Dim WithEvents slvfrm As Form

' 0 - Modeless, 1 - Modal
Private Sub Command1_Click(Index As Integer)
  Dim frm As New frmSurModal2
  If Index = 0 Then
    Set slvfrm = frm
    frm.Show vbModeless, Me
  Else
    frm.Show vbModal, Me
  End If
End Sub

Private Sub slvfrm_Load()
  Me.Enabled = False
End Sub

Private Sub slvfrm_Unload(Cancel As Integer)
  Me.Enabled = Not CBool(Cancel)
  If Me.Enabled Then
    Set slvfrm = Nothing
  End If
End Sub


Как-то так.