Mega Code Archive

 

Categories / Delphi / Forms

 

Hide the minimize-maximize buttons of a form

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