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

Delphi7

Windows电脑

打开Delphi7集成开发环境，在默认工程的Form1窗体的OnCreate方法加入如下代码：procedure TForm1.FormCreate(Sender: TObject);begin  BorderIcons := BorderIcons - [biMinimize, biMaximize];end;这是去掉BorderIcons属性的方式。

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

打开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;

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

打开Delphi7集成开发环境，通过重载 CreateParams 方法，在默认工程的Form1中添加方法如下：procedure TForm1.CreateParams(var Params: TCreateParams);begin  inherited; //继承 CreateParams(Params);  Params.Style := Params.Style xor WS_MINIMIZEBOX xor WS_MAXIMIZEBOX;end;

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