Настройка заголовка формы в Delphi и Pascal

Delphi , Программа и Интерфейс , Формы

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

Контекст проблемы: Пользователь хочет настроить заголовок формы в Delphi или Pascal, но не знает, как это сделать. В форуме были предложены разные решения, но пользователь все еще ищет лучшее решение.

Решение 1: Использование панелей

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

Пример кода:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    FMouseDown: Boolean;
    FMouseX, FMouseY: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Align := alTop;
  Panel1.Height := 30;
  Button1.Parent := Panel1;
  Button1.Caption := 'Minimize';
  Button2.Parent := Panel1;
  Button2.Caption := 'Maximize';
  Button3.Parent := Panel1;
  Button3.Caption := 'Close';
end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := True;
  FMouseX := X;
  FMouseY := Y;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if FMouseDown then
  begin
    Form1.Left := Form1.Left + X - FMouseX;
    Form1.Top := Form1.Top + Y - FMouseY;
    FMouseX := X;
    FMouseY := Y;
  end;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FMouseDown := False;
end;

end.

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

Решение 2: Настройка заголовка формы с помощью WM_NCPAINT

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

Пример кода:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure WMPaint(Sender: TObject);
    procedure WMNCPaint(var Message: TWMNC); message WM_NCPAINT;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMPaint(Sender: TObject);
begin
  inherited;
  Canvas.Brush.Color := clWhite;
  Canvas.FillRect(ClientRect);
end;

procedure TForm1.WMNCPaint(var Message: TWMNC);
begin
  inherited;
  with Message do
  begin
    if (Style and CS_DBLCLKS) = CS_DBLCLKS then
      Caption := 'Double click to maximize';
    inherited;
  end;
end;

end.

В этом примере мы перехватываем сообщение WM_NCPAINT и меняем текст заголовка формы на "Double click to maximize", когда пользователь удваивает щелчок в заголовке формы. При нажатии на заголовок формы, форма будет максимизироваться.

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

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

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

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

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

:: Главная :: Формы ::