如何控制窗题的大小 200410

Question

现在设计的一个Form的BorderStyle设置为bsSizeable，现在想在当Form只能在一个范围能随意改变大小。我是这么做的：
procedure TFChartEditor.FormResize(Sender: TObject);
begin
  if (Height <= 362) or (Width <= 390)  then
  begin Height := 363; Width := 391; Exit; end;
end;
现在的问题是，当改变窗体到这个位置的时候，窗体就会出现闪动，如何让这种闪动效果没有呢？如果我这种思路不好请说说其它思路！

Answer 1

楼主，不用那么麻烦。窗体有一个Constraints属性，下属有MaxHeight Maxwidth MinHeight Minwidth
分别设置就可以了。