窗口大小问题

如何让delphi的窗口自由缩小？我在缩小窗口时当宽度小于100时就不能再小了，怎么办？小虾请高手指教，送分50！

解决方案 »

  1.   

    在窗口的onresize事件中加入：
    if self.width<=100 then self.width:=100;
      

  2.   

    procedure WMGetMinMaxInfo(var Message :TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;procedure TfrmServer.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );beginwith Message.MinMaxInfo^ dobegin//ptMaxSize.X := 385; {??????}ptMaxSize.Y := 93; {??????}ptMaxPosition.X := 0; {??????????}ptMaxPosition.Y := 93; {??????????}end;Message.Result := 0; {??Windows???? minmaxinfo}inherited;end;
      

  3.   

    maxsize和maxposition有什么作用？