Спрятать Min и Max кнопки на форме

Delphi , Программа и Интерфейс , Заголовок формы

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, которая выполняется при создании формы (событие FormCreate). Её цель - скрыть кнопки минимизации и максимизации на форме.

Вот что она делает:

1. Она получает стиль окна формы с помощью функции GetWindowLong.
2. Она очищает из полученного стиля окна флаги WS_MINIMIZEBOX (0x20000) и WS_MAXIMIZEBOX (0x10000).
3. Затем она устанавливает модифицированный стиль окна обратно на форму с помощью функции SetWindowLong.

Эта процедура вызывается при создании формы, поэтому она будет скрыть кнопки минимизации и максимизации на форме сразу.

Альтернативное решение:

Если вы хотите достичь этого без прямого изменения стиля окна, можно использовать следующий альтернативный код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.BorderStyle := bsNone;
end;

В этом случае установка BorderStyle в bsNone будет удалить все рамки и кнопки с формы, включая минимизацию и максимизацию. Однако стоит иметь в виду, что это подход менее гибок, чем прямое изменение стиля окна, потому что он полностью удаляет все рамки и кнопки, а не только конкретные, как в оригинальном коде.

Процедура TForm1.FormCreate(Sender: TObject) скрывает кнопки Min и Max на форме путем изменения стиля окна с помощью функции GetWindowLong и SetWindowLong.

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

:: Главная :: Заголовок формы ::