Решение Проблемы Отсутствия Заголовка Окна в Delphi и Поддержание Изменяемости Размера Формы

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

При разработке приложений с использованием Delphi и языка Object Pascal (Delphi) часто возникают задачи, связанные с настройкой внешнего вида окон. Одной из таких задач является удаление заголовка окна (caption bar) и при этом сохранение возможности изменения размеров формы. В данной статье мы рассмотрим, как решить эту проблему, используя примеры кода на Object Pascal.

Описание Проблемы

Разработчик столкнулся с проблемой, когда, удалив заголовок формы с помощью свойства BorderStyle := bsNone; и переопределив метод CreateParams, он обнаружил, что при нормальном состоянии окна на Windows 10/1903 появляется дополнительная панель над клиентской областью. Использование стилей окон WS_SIZEBOX вместо WS_THICKFRAME не приводит к изменениям. Если же переопределение CreateParams убрать, дополнительная панель исчезает, но форма становится не изменяемой по размеру.

Решение Проблемы

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

В коде ниже приведен пример обработчика сообщения WM_NCHITTEST, который позволяет системе определять, какие части окна являются "захватываемыми" для изменения размеров:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
  protected
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm5 }

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
var
  D: Integer;
  P: TPoint;
begin
  D := GetSystemMetrics(SM_CXSIZEFRAME);
  P := Self.ScreenToClient(Message.Pos);
  if P.Y < D then
  begin
    if P.X < D then
      Message.Result := HTTOPLEFT
    else if P.X > ClientWidth - D then
      Message.Result := HTTOPRIGHT
    else
      Message.Result := HTTOP;
  end
  else if P.Y > ClientHeight - D then
  begin
    if P.X < D then
      Message.Result := HTBOTTOMLEFT
    else if P.X > ClientWidth - D then
      Message.Result := HTBOTTOMRIGHT
    else
      Message.Result := HTBOTTOM;
  end
  else
  begin
    if P.X < D then
      Message.Result := HTLEFT
    else if P.X > ClientWidth - D then
      Message.Result := HTRIGHT;
  end;
end;

end.

Подтвержденный Ответ

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

Альтернативные Решения

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

Заключение

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

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

Разработчик использует Delphi для создания приложения, столкнулся с проблемой отсутствия заголовка окна и сохранения его изменяемости, и находит решение в переопределении обработчика сообщения `WM_NCHITTEST`.

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

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

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