Как объединить два окна в одно приложение на Delphi без рамок

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

Как создать окно без рамки, сохраняя функционал панели инструментов в Delphi

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

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

Возможный подход к решению проблемы — создание окна без сторонних и нижних рамок, но с сохранением панели инструментов. Это достигается путем переопределения метода CreateParams формы и установки соответствующих стилей, чтобы убрать рамку. Также необходимо самостоятельно нарисовать панель инструментов и обработать соответствующие сообщения мыши.

Пример кода на Object Pascal (Delphi)

type
  TForm1 = class(TForm)
  private
    FBorderWidth: Integer;
    FTitleHeight: Integer;
    procedure AppRestored(Sender: TObject);
    procedure WMNCCalcSize(var Message: TWMNCCalcSize); message WM_NCCALCSIZE;
    procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT;
  protected
    procedure Resize; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }
procedure TForm1.AppRestored(Sender: TObject);
begin
  Repaint;
end;

procedure TForm1.Resize;
begin
  inherited Resize;
  if FBorderWidth = 0 then
  begin
    FBorderWidth := (Width - ClientWidth) div 2;
    FTitleHeight := Height - ClientHeight - FBorderWidth;
    Application.OnRestore := AppRestored;
  end;
  Invalidate;
end;

procedure TForm1.WMNCCalcSize(var Message: TWMNCCalcSize);
begin
  inherited;
  with Message.CalcSize_Params^ do
  begin
    Dec(rgrc[0].Left, FBorderWidth);
    Inc(rgrc[0].Right, FBorderWidth);
    Inc(rgrc[0].Bottom, FBorderWidth);
  end;
end;

procedure TForm1.WMNCPaint(var Message: TWMNCPaint);
begin
  DeleteObject(Message.RGN);
  Message.RGN := CreateRectRgn(Left, Top, Left + Width, Top + FTitleHeight);
  inherited;
  // Здесь должен быть код для рисования панели инструментов
end;

Комментарии к коду

После переопределения методов WMNCCalcSize и WMNCPaint окно не будет иметь стандартных рамок, но панель инструментов и её функции останутся. В методе WMNCPaint необходимо добавить код для рисования панели инструментов, а также обработку событий, связанных с этой панелью, чтобы обеспечить её функциональность.

Заключение

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

Примечание

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

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

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

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

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

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