How to disable maximize button in delphi program?

How 开发者_开发问答to disable maximize button in delphi program?

Oh! I found in object inspector "BorderIcons" Just set there biMaximize from true to false!

Here is another trick if you want to do it using code only.

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;

BorderIcons := BorderIcons - [biMaximize]