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

Question

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

Answer 1

哦！我在对象检查员“BorderIcons”中找到了 只需将biMaximize从true设置为false！

Answer 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;

Answer 3

BorderIcons：= BorderIcons - [biMaximize]