При максимизации MDI child пропадают кнопки мини/максимизации

[Sullla]

При максимизации MDI child пропадают кнопки мини/максимизации...
Кто поможет???

[Stilet]

Даю подсказку:

Главная форма:

unit Unit1;

interface

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

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

var frmact:TForm;
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.w(var m: TWMSysCommand);
begin
 if m.CmdType=SC_MINIMIZE then begin
  if frmact<>nil then begin
   frmact.WindowState:=wsNormal;
   frmact:=nil
  end;
 end;
end;

end.

Дитячя форма:

unit Unit2;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses unit1;

procedure TForm2.w(var m: TWMSysCommand);
begin
 if m.CmdType=SC_MAXIMIZE then begin
  WindowState:=wsMaximized;
  frmact:=self;
 end;
end;

end.

Единственное что я не помню параметра который отвечает за восстановление, потому в главной форме поставил SC_MINIMIZE на реакцию.
Но смысл в том чтоб при максимизации запомнить какая форма была распахнута, и при восстановлении возвращать именно ее, но поскольку восстановление проводится уже относительно главной формы то и обработчик ставим именно в ней