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

[Altera]

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

[Alex Cones]

with form1 do
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

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

[Altera]

Сообщение от Alex Cones

with form1 do
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

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

Нее, эт что-то зверское.
Меня вообще очень смущает, что такой параметр как ПоверхВсехОкон выбирается как стиль формы, где настраиваются MIDI приложения. Это вообще должен был быть отдельный логический параметр.

[raxp]

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

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

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

   
procedure Tform2.CreateParams; //form2 - условно вторичная форма
begin
 inherited;
 Params.WndParent:= form1.Handle //form1 - условно ваша главная форма
end;

[Altera]

Спасибо raxp, помогло. А если ещё объясните почему помогло, то вообще хорошо будет!

[uberchel]

Да все просто!
От а процедура перехватывает параметры главного окна и приминяет их к своей!

[raxp]

parent великая хвещь

[Altera]

Ок, а щас такой вопросег:
В приложении нет главных форм! Т.к. приложение работает в фоновом режиме и нельзя выделить какую нить форму как главную не могу. Так как мне тогда поступить, что-бы какое-то окно было поверх всех окон в системе?

[raxp]

SetWindowPos(handle,HWND_TOPMOST,0, 0,0,0,SWP_NOSIZE or SWP_NOMOVE {чтоб двигать- другие флаги только}) или setforegroundwindow - играться пробовали? (дык без таймера никак, особенно если еще и поверх диспетчера нужно)

[Altera]

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

SetWindowPos(handle,HWND_TOPMOST,0, 0,0,0,SWP_NOSIZE or SWP_NOMOVE {чтоб двигать- другие флаги только}) или setforegroundwindow - играться пробовали? (дык без таймера никак, особенно если еще и поверх диспетчера нужно)

Мне не нужно ЖЕЛЕЗНО поверх ВСЕХ окон. Просто главная форма приложения при formStyle = fsStayOnTop работает так как надо. Но у меня в приложении нет главных форм. По этому форма, у которой formStyle = fsStayOnTop находиться по верх всех окон запущенного экземпляра приложения.
Приведу пример: плавающее окошко у Download Master-а. Оно явно не главное, но оно always on top. Ну у Download Master-а вероятно есть главное окно. А в моём случае http://programmersforum.ru/showpost....62&postcount=4 не подходит.