На главную
Подписка
Новости










Главная / DELPHI / 38 советов по Delphi / Как вывести окно перед другими окнами не выводя наверх родительское окно? Сделать домашней страницей Добавить в избранное Написать писмо

НАЗАД СОДЕРЖАНИЕ

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

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

...

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

...

procedure TForm2.CreateParams(var Params: TCreateParams);

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

НАЗАД СОДЕРЖАНИЕ

Hosted by uCoz