Неглавная форма поверх всех окон

Posted by Chas under Топик-обзор

Всем привет! Раньше я как-то не обращал внимания на эту проблему, но теперь она меня достала.
Короче, не главным формам приложения пофигу, что в formStyle указано. Они всё равно не поверх всех. Как исправить?

Alex Cones:

with form1 do

SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

end;

В таймере пробовал?
Ток на всех формах такое размести.
И, разумеется меняй «form1»

raxp:

— ваша проблема решаема. все дело в сообщениях формы…
добавьте в не главные формы-модули секцию protected
— procedure CreateParams(var Params:TCreateParams);override;
и в коде каждого вторичного модуля сие:

procedure Tform2.CreateParams; //form2 - условно вторичная форма

begin

 inherited;

 Params.WndParent:= form1.Handle //form1 - условно ваша главная форма

end;

тема на форуме

Похожие статьи

• Как организовать обмен данными между формами?
• Нестандартный вид формы
• Окно поверх всех окон
• Перенести программу из Delphi в Lazarus
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid