（转）Delphi中去掉限制窗体最小尺寸的Windows约束

type
   TForm1 = class(TForm)
...
   private
     procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ; message WM_GETMINMAXINFO;
...
implementation
 
procedure TForm1.GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ;
begin
   with Msg.MinMaxInfo^ do
   begin
     ptMinTrackSize.X := 0; // min. Width
     ptMinTrackSize.Y := 0; // min. Height
   end;
end;
本文来自Delphi之窗，原文地址：http://www.52delphi.com