Модальное окно позади формы приложения

[Barbanel]

Приветствую, уважаемые!

Довольно давно мучает следующая сложновоспроизводимая проблема:

в редких случаях открываемое из главной формы модальное окно, по какой-то неизвестной причине отображается позади главной формы.
Если главная форма при этом максимизирована на весь экран, то пиши пропало, модальное окно на передний план никак не вытащить, можно лишь наслаждаться стандартным виндовым звуком "блыммм....".

Было высказано предположение, что модальное окно открывается из потока без синхронизации с главный потоком.
Однако это не так.

Собсно вопрос: это баг студии, FMX-компонентов и соотв Эмбаркадеро, или всеже наши кривые ручки?
В последнем случае, поделитесь плиз, как правильно открывать модальные окна?

[krapotkin]

коммент просто чтобы подписаться, тоже интересно, как кто решал

[LBox]

А Вы пробовали после запуска команды "Show" запустить команду "BringToFront"? 
 

ModalForm.Show;
ModalForm.BringToFront;

Изменено 22 февраля пользователем LBox

[krapotkin]

ShowModal же, не Show. Соответственно BringToFront() не выполнится

[LBox]

А может просто имитировать модальное окно обычным окном?

Еще можно попробовать установить для FormStyle TFormStyle(2) что включает для Формы режим StayOnTop

 ModalForm.FormStyle := TFormStyle(2); //TFormStyle(2) = StayOnTop;

Ну и на последок в stackoverflow на похожем топике советуют перед показом модального окна сделать его дочерним по отношению к основной форме 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.parent := form1;
  Form2.Show;
end;

Изменено 23 февраля пользователем LBox

[Andrey Efimov]

Увидел эту тему и не мог понять, почему я не сталкивался с такой проблемой в своём приложении, которое почти для всех форм использует режим модального окна. Решил покопаться в официальной жире. Есть там тикет (RSS-1714) с описанием похожей проблемы и демкой. В общем, там дело в использовании StyleBook. Если установить UseStyleManager = False, то проблема исчезает, правда вместе с проблемой исчезает и стилизация окна  Но может как то поможет вам в решении вашей проблемы.

[Barbanel]

Добрый день, Андрей,
спасибо за ответ, это интересный способ решения.

Мы действительно используем стили, поскольку Firemonkey в данной случае единственный доступный нам способ
оформить приложение именно так как задумано.

Отказ от стилей по факту приведет к переписыванию приложения под VCL

[Barbanel]

В 23.02.2025 в 22:25, LBox сказал:

А может просто имитировать модальное окно обычным окном?

Модальность в данном случае является удобным инструментом:
Выполнение последующего кода не начинается пока не закроется окно с необходимым результатом.

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

[Andrey Efimov]

В 26.02.2025 в 14:03, Barbanel сказал:

Добрый день, Андрей,
спасибо за ответ, это интересный способ решения.

Мы действительно используем стили, поскольку Firemonkey в данной случае единственный доступный нам способ
оформить приложение именно так как задумано.

Отказ от стилей по факту приведет к переписыванию приложения под VCL

Посмотрел репорт о баге подробнее, оказалось, автор нашёл ещё один способ. Добавить BringToFront в модальную форму.

Судя по его исследованию, проблема возникает, когда модальная форма генерирует изменение (и перекраску).

Проверил на его демке, помогло (для теста добавил BringToFront в событие OnPaint модальной формы).

p.s. Репорт (RSS-1714) появился там 6 сентября 2024 года

[krapotkin]

ONPAINT ??? помню, я экспериментировал с onShow не взлетало

[Andrey Efimov]

Да, вот прямо сейчас проверял, модальная форма перестаёт проваливаться под основную. На всякий случай, Delphi 12.2.

[LBox]

9 часов назад, Andrey Efimov сказал:

Да, вот прямо сейчас проверял, модальная форма перестаёт проваливаться под основную. На всякий случай, Delphi 12.2.

Ну вот как и предпологали в самом начале топика все-таки "BringToFront" решает проблему 
Надо было всего лиш запустить его в "OnPaint"  Ну что же будем теперь знать