设置窗体的BorderIcons.biMinimize = false和BorderIcons.biMaximize = false。
BorderIcons.biMinimize = false
BorderIcons.biMaximize = false
窗体的事件OnCanResize,代码如下:
OnCanResize
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin Resize := False; end;