Создание формы с кожаной оболочкой в Delphi без стандартных элементов управления

Delphi , ОС и Железо , Windows

Статья:

Вопрос разработчиков, работающих с Delphi, часто связан с созданием пользовательских интерфейсов, которые выделяются на фоне стандартных окон. Один из способов достижения такого эффекта - создание формы с кожаной оболочкой, которая не содержит стандартных элементов управления, таких как рамка и заголовок окна. В данной статье мы рассмотрим, как можно реализовать такую форму, сохраняя при этом доступ к системному меню (например, перемещение, минимизация, максимизация, восстановление размера).

Подход к решению

Для создания формы с кожаной оболочкой без стандартных элементов управления, но с доступом к системному меню, можно использовать переопределение процедуры CreateParams. Это позволит изменить стиль окна и избавиться от элементов управления, которые не нужны, но при этом оставить возможность доступа к системному меню.

Пример кода

procedure TMainFrm.CreateParams(var Params: TCreateParams);
begin
  FormStyle := fsNormal;
  try
    if (BorderIcons <> []) then BorderIcons := [];
    if (BorderStyle <> bsNone) then BorderStyle := bsNone;

    inherited CreateParams(Params);
    Params.ExStyle := (Params.ExStyle and not (WS_EX_WINDOWEDGE or WS_EX_STATICEDGE or WS_EX_DLGMODALFRAME or WS_EX_CLIENTEDGE));
    Params.Style := (Params.Style and not (WS_CAPTION or DS_MODALFRAME or WS_DLGFRAME or WS_THICKFRAME));
    Params.Style := (Params.Style or WS_SYSMENU or WS_MAXIMIZEBOX or WS_MINIMIZEBOX or WS_SIZEBOX);
  end;
end;

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

Альтернативный подход

Вместо того чтобы использовать WS_SIZEBOX, можно перехватить и обработать сообщение WM_NCPAINT, чтобы нарисовать заголовок и границу в неклиентской области окна. Это позволит избежать использования недокументированных сообщений и обеспечит более чистое решение.

type
  TMainFrm = class(TForm)
    // ...
  private
    procedure WmNcPaint(var Msg: TWmNcPaint); message WM_NCPAINT;
    // ...
  end;

procedure TMainFrm.WmNcPaint(var Msg: TWmNcPaint);
begin
  // Здесь можно нарисовать заголовок и границу окна
  inherited;
end;

Также, можно самостоятельно включить элемент меню "Размер" в системном меню, перехватив сообщение WM_INITMENUPOPUP.

procedure TMainFrm.WmInitMenuPopup(var Msg: TWMInitMenuPopup);
begin
  inherited;
  if Msg.SystemMenu then
    EnableMenuItem(Msg.MenuPopup, SC_SIZE, MF_BYCOMMAND or MF_ENABLED);
end;

Заключение

- задача, которая требует тщательной проработки деталей интерфейса и правильного использования механизмов перехвата сообщений. Приведенные примеры кода демонстрируют базовый подход к решению этой задачи, но для полноценной реализации может потребоваться дополнительная настройка и тестирование.

Создано по материалам из источника по ссылке.

Статья описывает процесс создания пользовательского интерфейса в Delphi, где форма имитирует кожаную оболочку без стандартных элементов управления, но с сохранением доступа к системному меню.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::