Form - escondendo janelas MDI child quando sao minimizadas

{

To hide minimized MDI child windows, 

you must trap its WM_Size message, 

like this:

}

type 

  TForm1 = class(TForm) 

  public 

    procedure WMSize(var M : TWMSIZE);

              Message WM_Size; 

  end; 

implementation 

procedure TForm1.WMSize(var M:TWMSIZE); 

begin 

  if M.SizeType=Size_Minimized then 

    showwindow(Handle,Sw_Hide); 

end;