Добавляем новую кнопку к границе окна в Delphi

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

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

Изначальный подход

Ранее, до появления Windows Aero, задача была проще. Для добавления элементов на панель заголовка окна достаточно было перехватить сообщения WM_NCPAINT и WM_NCACTIVATE. Это позволяло рисовать на панели заголовка, используя, например, процедуру TextOut. Пример кода на Object Pascal, который выполняет такую задачу:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  protected
    procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
    procedure WMNCActivate(var Msg: TWMNCActivate); message WM_NCACTIVATE;
  private
    procedure DrawOnCaption;
  public
    // ...
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNCActivate(var Msg: TWMNCActivate);
begin
  inherited;
  DrawOnCaption;
end;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  DrawOnCaption;
end;

procedure TForm1.DrawOnCaption;
var
  dc: HDC;
begin
  dc := GetWindowDC(Handle);
  try
    TextOut(dc, 20, 2, 'test', 4);
  finally
    ReleaseDC(Handle, dc);
  end;
end;

end.

Проблемы с Windows Aero

С появлением Windows Aero, стандартный способ добавления элементов на панель заголовка перестал работать. Однако существует более сложный способ, который позволяет достичь желаемого результата. Подробный пример реализации кастомной панели заголовка можно найти в статье Setting up a custom titlebar.

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

Ещё один способ реализации кастомной панели заголовка заключается в установке свойства BorderStyle формы в значение bsNone, после чего можно самостоятельно реализовать панель с кнопками и кастомным поведением. Пример кода для кастомизации формы на CodeCentral.

Заключение

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

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

Вопрос связан с добавлением новой кнопки к стандартным кнопкам границы окна в среде разработки Delphi, учитывая изменения в интерфейсе Windows, в частности, появление Windows Aero.

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

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

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