【发布时间】：2011-01-19 22:51:06
【问题描述】：
如何在delphi程序中禁用最大化按钮？
【问题讨论】：
【发布时间】：2011-01-19 22:51:06
【问题描述】：
哦！我在对象检查器“BorderIcons”中找到 只需将 biMaximize 从 true 设置为 false！
【讨论】：
-
你是个天才！
如果您只想使用代码来实现，这里还有一个技巧。
procedure TForm1.FormCreate(Sender: TObject);
var
l: DWORD;
begin
// hide minimize and maximise buttons
l := GetWindowLong(Self.Handle, GWL_STYLE);
l := l and not(WS_MINIMIZEBOX);
l := l and not(WS_MAXIMIZEBOX);
l := SetWindowLong(Self.Handle, GWL_STYLE, l);
end;
【讨论】：
-
在 VCL 代码中，这应该只是
BorderIcons := BorderIcons - [biMaximize]。
BorderIcons := BorderIcons - [biMaximize]
【讨论】：