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);
這行代碼可以移除最小化和最大化按鈕,只留一個關(guān)閉按鈕,其中用到的三個系統(tǒng)常量分別為:
WS_MINIMIZEBOX 最小化
WS_MAXIMIZEBOX 最大化
WS_SYSMENU 關(guān)閉
那么另一個解決辦法就是
移除所有的窗口按鈕,自己在窗體上添加單獨的最小化和關(guān)閉按鈕也可以實現(xiàn),只是要多做一些步驟了。如圖所示:

呵呵~

浙公網(wǎng)安備 33010602011771號