Удалить кнопки сворачивания и максимизации с формы

Delphi , Программа и Интерфейс , Формы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  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 Schaltflachen zur Minimierung, 
  Maximierung einer Form zur Laufzeit verstecken kann. 
  Man braucht dafur die SetWindowLong Windows API um den Stil 
  des Fensters zu andern. 
  Der Code kann auch fur 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;

Статья Удалить кнопки сворачивания и максимизации с формы раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Формы ::