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

[Shouldercannon]

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

[Terran]

Поставьте на первую форму компонент ApplicationEvents и отлавливайте событие Minimize.

[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;

[Shouldercannon]

Какие ещё есть альтернативы данному способу?

  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;

Данный способ не устраивает тем, что при выводе Hint чего либо на других форма, эти формы становятся позади главной и вывести их на передний план можно только по клику на заголовоке.
Был предложен такой вариант, но он извратный

[zumm]

А почему бы не разворачивать форму 2 по закрытию формы 1, если форма 2 уже развернута?

[Shouldercannon]

Нет. Нужен сособ представленный в прикреплённом файле в посте #4, только без Form0.

Пересмотрим систему. Убираем procedure CreateParams(var Params: TCreateParams); override; и переходим на

procedure TForm2.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;

Теперь осталось решить проблему сворачиваниях всех открытых форм при сворачивании Form1 (Главной формы).

А если использовать мультипоточность?

[Shouldercannon]

Нашёл хороший способ, но на Windows 8 он даёт сбой. На Win8 всплывает форма, которой нет на Win7.
Вот код программы

program Project;

{$R 'resources.res' 'resources.rc'} // Свой manifest

uses
  Forms,
  frm_Main in 'frm_Main.pas' {FormMain},
  frm_PreMain in 'frm_PreMain.pas' {FormPreMain},
  frm_Settings in 'frm_Settings.pas' {FormSettings};

{$R *.res}

begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.Title := 'Test';
  Application.CreateForm(TFormPreMain, FormPreMain);
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormSettings, FormSettings);
  Application.Run;
end.

unit frm_PreMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TFormPreMain = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AppMinimize(Sender: TObject);
  end;

var
  FormPreMain: TFormPreMain;

implementation

{$R *.dfm}

procedure TFormPreMain.AppMinimize(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TFormPreMain.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppMinimize;
  Application.OnRestore := AppMinimize;
  Application.Minimize;
  AppMinimize(@Self);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, not WS_EX_APPWINDOW);
end;

end.

unit frm_Main;

...
  private
    { Private declarations }
    SessionEnding: Boolean;
    procedure PreExit;
    procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION; // Для корректного завершения работы Windows
  public
    { Public declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

uses frm_PreMain, frm_Settings;

procedure TFormMain.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

procedure TFormMain.WMQueryEndSession(var Message: TMessage);
begin
  PreExit;
  SessionEnding := True;
  Message.Result := 1;
  inherited;
end;

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := SessionEnding;

  if not CanClose then
  begin
    Hide;
    PopupMainMenu.Items[0].Caption := 'Показать ' + ProgramName;
  end;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Caption := ProgramName;
  CoolTrayIcon1.Hint := ProgramName;
  PopupMainMenu.Items[0].Caption := 'Показать ' + ProgramName;
end;

procedure TFormMain.PreExit;
begin
  FormPreMain.Close;
end;

procedure TFormMain.PMMExitClick(Sender: TObject);
begin
  PreExit;
end;

procedure TFormMain.CoolTrayIcon1Click(Sender: TObject);
begin
  if Showing then
  begin
    Hide;
    PopupMainMenu.Items[0].Caption := 'Показать ' + ProgramName;
  end
  else
  begin
    WindowState := wsNormal;
    Show;
    Application.BringtoFront;
    PopupMainMenu.Items[0].Caption := 'Скрыть ' + ProgramName;
  end;
end;

procedure TFormMain.Button1Click(Sender: TObject);
begin
  FormSettings.WindowState := wsNormal;
  FormSettings.Show;
end;

end.

unit frm_Settings;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TFormSettings = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  FormSettings: TFormSettings;

implementation

uses frm_Main;

{$R *.dfm}

procedure TFormSettings.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

end.

Подскажите, пожалуйста, в чём проблема.