скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Оформил: DeeCo

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





Copyright © 2004-2018 "Delphi Sources". Delphi World FAQ


RAD Studio XE8

Комплексное решение для разработки программного обеспечения, ускоряющее проектирование, программирование и создание взаимодействующих приложений для Windows, Mac, iOS, Android и IoT. Создавайте готовые решения корпоративного класса, включая разные клиентские native-платформы, мобильные расширения, умные устройства, облачные службы, корпоративные и встроенные базы данных.



Группа ВКонтакте   Facebook   Ссылка на Twitter