11

如何在delphi程序中禁用最大化按钮？

4

3 回答 3

27

哦！我在对象检查器“BorderIcons”中发现只需将biMaximize 从真设置为假！

于 2010-02-23T05:22:54.727 回答
2

如果您只想使用代码来做这件事，这是另一个技巧。

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;
于 2012-02-23T17:05:09.647 回答
0

BorderIcons := BorderIcons - [biMaximize]

于 2017-02-15T10:14:37.297 回答