Убирать бордюр формы при перемещении

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.PanelTopMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 const
   SC_DRAGMOVE = $F012;
 begin
   if (Button = mbLeft) then
   begin
     ReleaseCapture;
     (Self as TControl).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
   end;
 end;

Перевод на русский язык:

Процедура Delphi, обрабатывающая событие MouseDown панели управления (TPanel) с именем PanelTop. Цель этой процедуры - позволить пользователю перетаскивать панель, кликнув на нее и перемещая мышь.

В деталях код выполняет следующие действия:

1. Проверяет, был ли нажат левый кнопка мыши (т.е., Button = mbLeft).
2. Если была нажата левая кнопка мыши, освобождает захват событий мыши с помощью метода ReleaseCapture.
3. Затем выполняет системный команд с помощью метода Perform, имитируя операцию перетаскивания.

Системный команд, используемый в этом случае, - это WM_ SYSCOMMAND, который является Windows-сообщением, указывающим на выполнение системного уровня команды. Первый параметр SC_DRAGMOVE - константа, которая определяет тип системной команды, выполняющейся в этом случае - перетаскивание.

Имитация операции перетаскивания позволяет панели отвечать на движения мыши, как если бы она была перетаскивана пользователем.

Альтернативное решение с использованием встроенной поддержкой Delphi для перетаскивания контролов:

procedure TForm1.PanelTopMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TControl).StartDrag;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TControl).EndDrag;
end;

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

Эта APPROACH проще и более эффективна, чем имитация системной команды с помощью WM_ SYSCOMMAND.

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

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

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

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