如何让一个窗口最大的时候是800X600？用户用鼠标改变大小，也不能超过800X600(5分)

net_morning · 2006-03-30

因为设计的时候是按照800X600设计的，在1024X768的分辨率下，很难看

yuzk2005 · 2006-03-30

procedure TForm1.FormResize(Sender: TObject);
begin
if self.Width>800 then
self.Width:=800;
if self.Height>600 then
self.Height:=600;

end;

versa · 2006-03-30

同意yuzk2005

Jathenal · 2006-04-19

用form.constrain属性即可

kxh201 · 2006-04-19

以前我试过用yuzk2005的方法做，但是用鼠标拖动时窗口大小是会变化的，虽然释放鼠标后会变成设定好的样子。
你可以设置窗口的constrain属性，使maxheight=minheight=form.height,maxwidth=minwidth=form.width.

net_morning · 2006-04-26

多人接受答案了。