限制窗体大小(50分)

鼠标拖拉QQ聊天窗口改变大小的时候,在拉到最小化的时,鼠标拖拉形成的那个虚边框就无法再小了,这是怎么实现的?

//------------------------------------------------------------------------------
// 保持界面大小
//------------------------------------------------------------------------------
procedure TForm_Main.FormResize(Sender: TObject);
begin

Form_Main.Width := 1000;
Form_Main.Height := 640;
end;

这样鼠标还是可以拖拉出一个虚框啊,你试下QQ聊天窗口就知道了,在窗口大小拉到最小的时候,就没办法再拉了,我就是要实现那样的,各位帮帮忙啊,急

yourform.maxwidth := 你要的最大宽度;
.minwidth := 你要的最小宽度;
.maxheight := 最大高;
.minwidth := 最小高;