Form - escondendo janelas MDI child quando sao minimizadas

Top  Previous  Next

{

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