如何禁止用户更改窗体的大小

  1. 设置窗体的BorderIcons.biMinimize = falseBorderIcons.biMaximize = false

  2. 窗体的事件OnCanResize,代码如下:

 procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize := False;
end;



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678