Tips (1541)

Tip Rating (18):

{
  This article shows by example how to suppress the maximize and
  minimize buttons on an form at runtime.
  To disable an form's Minimize and Maximize buttons,
  you need to use the SetWindowLong Windows API
  function to change the style of the window.
}

{ Dieses Beispiel zeigt, wie man die Schaltflächen zur Minimierung,
  Maximierung einer Form zur Laufzeit verstecken kann.
  Man braucht dafür die SetWindowLong Windows API um den Stil
  des Fensters zu ändern.
  Der Code kann auch für non-VCL Anwendungen gebraucht werden.
}

// Add the following code to the OnCreate event
// procedure for your form (TForm1):

procedure TForm1.FormCreate(Sender: TObject);
var
  l: DWORD;
begin
  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;