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　　关闭

那么另一个解决办法就是

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

　　呵呵~

巴特西

Delphi 移除窗口最大化按钮

最新文章

热门文章