有多种方法阿，比如在
在 onPaint事件的实现中添加以下源码：

procedure TForm1.FormPaint(Sender: TObject);
begin
  If Height>560 Then Height:=560;
  If Width>430 Then Width:=430;
end;

或者onResize方法中添加以上源码