Проблема FormStyle=fsStayOnTop

[rtn]

При переключении между приложениями периодически (довольно часто) Формы с FormStyle=fsStayOnTop остаются сверху другого активного приложения а не исчезают вместе с главной формой.
Lazarus 1.2.6 Windows 7 и Win XP

[GAMER]

Что значит "не исчезают вместе с главной формой"?

[rtn]

Постараюсь поподробнее :
Простой проект:
-Главная форма Form1 на ней Button1.
-Еще одна форма Form2 c FormStyle=fsStayOnTop для наглядности с меньшим размером
-
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

При запуске после нажатия Button1 видим Form1 и Form2
Сейчас переключаясь на другие программы Alt-Tab или щелкая по панели задач
-должно быть:
Окно другого приложения выходит на передний план, Form1 и Form2 уходят на задний.
-по факту:
Form1 гарантировано уходит, а Form2 зачастую висит на переднем плане неактивной перед сторонним приложением.

[Ism]

Form1 гарантировано уходит, а Form2 зачастую висит на переднем плане неактивной перед сторонним приложением.

Вообщето смысл stayontop именно в этом, оставаться наверху
Зачем вообще использовать это свойство ?

[rtn]

Оставаться наверху перед чужим приложением должна форма с FormStyle=fsSystemStayOnTop.
Проблема заключается в том, что форма с FormStyle=fsStayOnTop иногда случайным образом ведет себя как FormStyle=fsSystemStayOnTop.
Вот еще нашел:
Lazarus_0.9.30_release_notes:
TCustomForm.FormStyle added fsSystemStayOnTop.Meaning is same as with fsStayOnTop except that fsStayOnTop is form on app top, so when application deactivates fsStayOnTop is not on top of other application(s), fsSystemStayOnTop is always on top.
То-есть баг имеет место быть.

[vitaly_l]

У меня такой баг отсутствует. Form2.Show при fsStayOnTop - работает как надо.
Попробуйте ShowModal; Тоже такой баг выскакивает? Если ответ да... то:
лучше переустановить лазарус - последнюю версию.

[GAMER]

Подтверждаю баг, хотя он достаточно редко себя проявляет. До сих пор не удалось его воспроизвести у себя принудительно. Возникает спонтанно.

[rtn]

Пробовал дома воспроизвести (Win 7):
Открыл Word, развернул на весь экран, запустил проект с пресловутыми Form1, Form2.
Щелкал в панели задач Документ1-project1-Документ1-project1... рука устала все корректно.
Щелкнул в панели задач project1 а затем по экрану с Word и ... вот она неактивная вверху висящая никому сейчас не нужная Form2 над активным вордом.
На работе с WinXp этот баг происходит при любом переключении между приложениями почти в половине случаев.
Пробовал SetWindowPos(self.Handle,HWND_TOPMOST... при FormStyle=fsNormal результат тот-же.
Может быть кто-то из продвинутых форумчан сможет сформулировать и отправить баг репорт?

Ну и после двух суток мучений кажется нашел костыль: Form2.FormStyle=fsNormal
в исходном коде проекта Form2.PopupParent:=Form1; Form2 ведет себя как fsStayOnTop и без багов.

Добавлено спустя 19 часов 23 минуты 4 секунды:
К сожалению костыль оказался кривой. Появился новый легко воспроизводимый баг (win7):
1. При открытой Form2 (Form2.PopupParent:=Form1) сворачиваем Form1 (Form2 естественно сворачивается вместе с ней)
2. Развернем проект (обе формы вновь видны)
3. Закрываем крестиком Form2
4. Сворачиваем Form1 и снова развернем.....
Видна "закрытая" наполовину прорисованная Form2 (TLabel не прорисованы, TEdit видны и даже получают фокус). Form2 причем уже ни как не закрыть, ни крестиком, ни программно.

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

[vitaly_l]

repaint формы пробовали при активации / деактивации?
Сделайте принудительный hide при деактивации программы и принудительный repaint и/или refresh.
Возможно с таким костылём будет Вам счастье...

Добавлено спустя 3 минуты 21 секунду:
Скорее всего баг не в форме, а в компонентах на ней...
У меня было подобное с чем-то вроде TPanel - весь форум перетряс, решения так и не нашли.

[rtn]

То что Form2 наполовину прорисована, это я просто ситуацию обрисовал, репаинт ей не нужен. Я вообще ее в п.3 закрыл, ее не должно быть вообще. Пустая Form2 без компонентов то-же появляется из небытия. Принудительное Hide, close, visible:=false на эту фантомную форму не действуют.

Добавлено спустя 14 минут 19 секунд:
подобную Form2 можно убрать в application.OnRestore написав следущий бред:
if form2.Visible=false then
begin
form2.Visible:=true;
form2.Visible:=false;
end;
Но тогда при восстановлении приложения будут мерцать все подобные формы

[vitaly_l]

Репаинт Form1, а не Form2. Form1 перекрывает баг?
Она не перерисовывается, соответственно её и нужно обновить, чтобы исчезла остаточная картинка от Form2.

.

[rtn]

Нет, да и думаю и не должно было. Это не остатки Form2 на канве Form1, это почти полноценная форма без возможности закрытия. Form2 после манипуляций описаных 3 постами выше получает некий странный статус. Как будто ее некий приватный FVisible устанавливается в false и Hide, close и пр. не действуют, что верно, но по факту она видна. В любом случае спасибо за помощь.

Добавлено спустя 21 час 19 минут 41 секунду:
Уф..., по проблеме с формами с PopupParent:=... отправил свой первый баг репорт с моим то английским
http://bugs.freepascal.org/view.php?id=27295

[GAMER]

Пишут, что

I cannot reproduce (Lazarus 1.5 r47338 FPC 2.6.4 i386-win32-win32/win64).

[Padre_Mortius]

rtn, а если попробовать руками создавать вторую форму? Переделанный пример.

[pupsik]

Есть просто форма, а есть ApplicationProperties (компонент). По идее это одно и тоже (с маленькими нюансами), оказалось нет...

Решил сделать тест:

1. Есть две формы: одна главная, вторая со св-вом FormStyle=fsStayOnTop. Проделал описанные действия и ... баг проявляется.
2. При баге приложение считает себя активным. И поэтому второе окно остается сверху. Хотя основное скрыто... (Тупо написал код проверки активности приложения, воопщем - пальцем в небо )
3. А вот компонент не считает себя столь разумным и считает что формы не "видно". (Аналогичная проверка...)
4. Используя св-ва Activate и Deactivate компонента и св-ва доченей формы Hide и Show получил "обход" бага.
5. Можно доковырятся почему такое "поведение". Но это другая долгая и скучная история. И завязана на странных буковках
6. Как вариант: использовать компонент ApplicationProperties и скрывать или отображать формы.

п.с.
тест был на ХП, дык что возможно и не сработает.