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运行程序，可以看到程序窗体右上角也没有最大化，最小化只有了关闭
