Delphi7取消窗口右上角最大化最小化按钮

1、打开Delphi7集成开发环境，在默认工程的Form1窗体的OnCreate方法加入如下代码：

procedure TForm1.FormCreate(Sender: TObject);

begin

  BorderIcons := BorderIcons - [biMinimize, biMaximize];

end;

这是去掉BorderIcons属性的方式。

2、F9运行程序，可以看到程序窗体右上角没有最大化，最小化只有了关闭

1、打开Delphi7集成开发环境，通过SetWindowLong这个系统API函数，修改窗体风格，在默认工程的Form1的OnCreate中加如下代码：

procedure TForm1.FormCreate(Sender: TObject);

var

  windowstyle: Integer;

begin

  windowstyle := GetWindowLong(Handle, GWL_STYLE);

  windowstyle := windowstyle xor WS_MINIMIZEBOX xor WS_MAXIMIZEBOX;

  SetWindowLong(Handle, GWL_STYLE, windowstyle);

end;

2、F9运行程序，可以看到程序窗体右上角也没有最大化，最小化只有了关闭

1、打开Delphi7集成开发环境，通过重载 CreateParams 方法，在默认工程的Form1中添加方法如下：

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

  inherited; //继承 CreateParams(Params);

  Params.Style := Params.Style xor WS_MINIMIZEBOX xor WS_MAXIMIZEBOX;

end;

2、F9运行程序，可以看到程序窗体右上角也没有最大化，最小化只有了关闭