Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Сен

Раздельное сворачивание форм

Posted by micher under Delphi

Есть Form1, на ней кнопка, при нажатии на которую показывается Form2 (Form2.Show). Если нажать на значок Form1 Свернуть, то свернуться обе формы (Form1 и Form2), как этого не допустить, то есть сворачивание должно примениться к той форме, на которой было сделано.

Alter

Поместите код в форму, которая должна жить «сама по себе»:



............................................

  public

    { Public declarations }

  protected

    procedure CreateParams(var Params: TCreateParams); override;

  end;

............................................

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

  inherited CreateParams(Params);

  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;

  Params.WndParent := GetDesktopWindow;

end;

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