Delphi Перетаскивание Формы За Любое Место

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

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

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
  if ssLeft in Shift then
  begin
    Left := Left + X - FPrevX;
    Top := Top + Y - FPrevY;
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  FPrevX := X;
  FPrevY := Y;
end;

В данном примере FPrevX и FPrevY - это поля класса формы, в которых сохраняются предыдущие координаты курсора мыши в процессе перетаскивания. Данный код позволит перетаскивать форму за любую область, на которую нажат курсор мыши.