wm-help.net -> Электронная библиотека -> Delphi -> 39 советов по Delphi -> Вывод окна поверх других без родительского окна -> Версия для печати

Вывод окна поверх других без родительского окна

Вывод окна поверх других без родительского окна

Как вывести окно перед другими окнами не выводя наверх родительское окно?

Если это не мешает общему ходу программы, то одно из самых простых решений - использование рабочего стола (Desktop) как родительское окно. Для этого необходимо перекрыть CreateParams подчиненного окна следующим образом:

...

private
  procedure CreateParams(var Params: TCreateParams); override;

...

procedure TForm2.CreateParams(var Params: TCreateParams);

begin
  inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;


Оглавление

Rambler's Top100