Delphi 移除窗口最大化按钮

很遗憾，好像没有直接的代码可以操作，可以试试以下代码：

　　

var
   GWL_Result: Integer;
begin
  GWL_Result:= GetWindowLong(Handle,GWL_STYLE);
  if GWL_Result>0 then
  begin
      SetWindowLong(Handle, GWL_STYLE,
                              GWL_Result and not  WS_MAXIMIZEBOX);
  end;
end;        

该代码只能禁用最大化按钮，无法移除。

SetWindowLong(Handle, GWL_STYLE, GWL_Result and not WS_MINIMIZEBOX and not WS_MAXIMIZEBOX);
这行代码可以移除最小化和最大化按钮，只留一个关闭按钮，其中用到的三个系统常量分别为:

　　WS_MINIMIZEBOX 最小化

WS_MAXIMIZEBOX     最大化

　　WS_SYSMENU　　关闭

那么另一个解决办法就是

　　移除所有的窗口按钮，自己在窗体上添加单独的最小化和关闭按钮也可以实现，只是要多做一些步骤了。如图所示：

　　

　　呵呵~