Создание перемещаемой формы с кастомизированной прозрачностью и фоновым изображением в Lazarus

Delphi , Синтаксис , Drag and Drop

Вопрос пользователя заключается в создании перемещаемой формы с кастомизированной формой, прозрачностью и фоновым изображением, при этом границы формы отсутствуют (BorderStyle: bsNone). Пользователь хочет сделать перемещение формы возможным, захватывая за обычный компонент TImage, который используется в качестве фонового изображения. Работа ведется в среде Lazarus версии 1.2.6 с использованием FPC версии 2.6.4.

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

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    PX, PY: Integer;
    MouseIsDown: Boolean;
  end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    MouseIsDown := True;
    PX := X;
    PY := Y;
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if MouseIsDown then
  begin
    SetBounds(Form1.Left + (X - PX), Form1.Top + (Y - PY), Form1.Width, Form1.Height);
  end;
end;

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

При перемещении курсора мыши нажатой левой кнопкой (когда курсор находится над TImage), форма будет перемещаться вместе с ним. При отпускании кнопки мыши, форма останется в новом положении, а обработка событий перемещения завершится.

Альтернативные способы решения

Также, если вы используете Windows, можно воспользоваться следующим подходом, который изменяет обработку сообщения WM_NCHITTEST для определения, что форма может быть захвачена для перемещения, даже если у неё нет границ:

uses
  Windows;

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

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  Msg.Result := HTCAPTION;
end;

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

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

Оба приведенных метода являются рабочими и подходят для создания перемещаемой формы с кастомизированной прозрачностью и фоновым изображением в Lazarus. Выбор метода зависит от конкретных требований и предпочтений разработчика.

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

Создание перемещаемой формы с кастомизированной прозрачностью и фоновым изображением в Lazarus, с использованием компонента TImage для захвата и перемещения формы.

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

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

:: Главная :: Drag and Drop ::