Узнать скрыта ли форма

[unit-85]

Добрый день! Нужно определить скрытые формы.
Можно ли узнать, была ли cкрыта форма методом Hide?

[Volt]

проверить ее на if form1.visible then ....не скрыта

[unit-85]

а мне именно скрытые надо, то есть те, которые уже были показаны, а потом скрыты. Те которые не были показаны не нужны. Поэтому свойство Visible не подходит

[Altera]

Сообщение от unit-85

а мне именно скрытые надо, то есть те, которые уже были показаны, а потом скрыты. Те которые не были показаны не нужны. Поэтому свойство Visible не подходит

Брат, isWindowVisible(wind: tHandle) возвращает True, если окно отображается, ну и false в противном случае.
А функция getForegroundWindow возвращает дескриптор окна, которой на переднем плане (под фокусом). Можешь так-же юзать процедуру setForegroundWindow(wind: tHandle) что-бы вывести на передний план отображаемое окно.

[unit-85]

IsWindowVisible Дает те же результате, что и Form.Visible. Отображаемое окно у меня одно. Но есть еще несколько скрытых. При закрытии активного окна хотелось бы, чтобы все скрытые (кроме одного) окна тоже закрывались. я бы мог их закрывать сам, но заранее неизвестно, через какие именно формы я добрался до этого окна.
Как вариант, можно их запоминать, конечно, просто хотел по-другому: цикл по формам, если скрыта, то закрыть.

[Volt]

Можно ли узнать, была ли cкрыта форма методом Hide

ну проверяй if form.viseble=false then то форма скрыта.

Те которые не были показаны не нужны.

без запоминания по моемому ни как.

[unit-85]

Ладно, будем запоминать

[Altera]

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

ну проверяй if form.viseble=false then то форма скрыта.

без запоминания по моемому ни как.

По мойму лучше showWindows(handle, SW_HIDE) для скрытия и showWindow(handle, SW_SHOW) для отображения юзать.

У меня в проге так. Правда мне нужно было запоминать только главное окно, ну я и писал в ini: iniFIle.writeBool('main_from', 'wasVisible', isWindowVisible(handle))
Ну а считываю в переменную а потом

if wasWindowVisible then
showWindows(handle, SW_HIDE);

и никогда проблем не было...

[Stilet]

При закрытии активного окна хотелось бы, чтобы все скрытые (кроме одного) окна тоже закрывались.

Твои окна? Твоего приложения?
Тогда в цикле проходи

for i:=0 to Screen.FormCount-1 do
 if screen.forms[i].visible then...

[unit-85]

я так и прохожу, но если окно не было открыто ни разу, то у него свойство visible = false, и при попытке закрыть окно прога виснет. при этом если окно было просто скрыто, то все нормально закрывает.