Можно ли отключить автонормализацию развёртнутых окон?

[DeveloPerchik]

Приложение MDIForm, окна MDIChild. Если одно окно развёрнуто на всю MDIForm, то при открытии окна без возможности разворачивания на весь экран (отключена кнопка "развернуть") происходит "нормализация" всех бывших развёрнутыми окон. Можно как-то это убрать? Чтобы развёрнутые окна не "нормализировались", а оставались как есть?

[Аватар]

Вопрос - а зачем нужна дочерняя MDI-форма без возможности максимизации? Вызывайте модально такую форму

[DeveloPerchik]

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

[Аватар]

Обычно Menu и ToolBar активной дочерней MDI-формы встраивается в соответствующие области главной MDI-формы при максимизации дочерней. Представте себе как будет выглядеть все это, если часть форм максимизирована, а часть нет. Видимо поэтому на уровне дельфей и поисходит то, что вы упомянули в #1. Очень сомневаюсь, что и winapi даст вам инструмент для разнопланового отображения дочерних MDI-форм

[Stilet]

Очень сомневаюсь, что и winapi даст вам инструмент для разнопланового отображения дочерних MDI-форм

А зря. Даст.

Чтобы развёрнутые окна не "нормализировались", а оставались как есть?

Можно перехватывать и обрабатывать соответствующее соощение.
Вот пример:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
  private
    { Private declarations }
    procedure wsm(var m:TWMSysCommand); message WM_SysCommand;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.wsm(var m: TWMSysCommand);
begin
 if m.CmdType=SC_MAXIMIZE then begin
  Width:=form1.Width;    Height:=Form1.Height-15;
  Top:=0;Left:=0;
 end else DefWindowProc(Handle,m.Msg,tMessage(m).WParam,tMessage(m).LParam);
end;

end.

[Аватар]

Stilet, а попробовать с таким обработчиком создать дочернюю, если другая дочерняя уже создана и максимизирована? И что будет с такой дочерней формой при максимизации другой дочерней? Ради интереса попробовал, поведение явно не адекватное

[Stilet]

Не понял... Поясни плиз.

[Аватар]

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

**** Главная mdi-форма

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Menu: TMenuItem;
    Menu1: TMenuItem;
    Menu2: TMenuItem;
    procedure Menu1Click(Sender: TObject);
    procedure Menu2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Menu1Click(Sender: TObject);
begin
  TForm2.Create(Self).Show;
end;

procedure TForm1.Menu2Click(Sender: TObject);
var x: TForm3;
begin
  x:=TForm3.Create(Self);
  X.WindowState:=wsMaximized;
  X.Show;
end;

end.

**** Дочерняя mdi-форма

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure wsm(var m:TWMSysCommand); message WM_SysCommand;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.wsm(var m: TWMSysCommand);
begin
 if m.CmdType=SC_MAXIMIZE then begin
    Width:=form1.Width-150;
    Height:=Form1.Height-150;
    Top:=0;Left:=0;
  end
  else DefWindowProc(Handle,m.Msg,tMessage(m).WParam,tMessage(m).LParam);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.

**** Дочерняя mdi-форма

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.

Создаю Form2 первой. максимизирую - поступает согласно ожидаемого. Создаю Form3, максимизирую, Form2 тоже максимизируется. Создаю Form3 первой, максимизирую, затем создаю Form2 - тоже максимизируется, игнорируя wsm

[Stilet]

А так:

if (m.ActivateWnd=handle)and(m.CmdType=SC_MAXIMIZE) then begin

?

[Аватар]

Так вообще в игнор, максимизируется по полной программе