Перетаскивание формы в FireMonkey

Posted by Chas under Delphi

пытаюсь научить программу перетаскиваться не за заголовок (которого нет), а за панель. Работа с координатами приводит к фейлу — форма дрожит и перемещается хаотично, мне же нужен аналог VCL’овского Perform. Может кто подсказать как можно в FMX сделать это или тыкнуть носом в литературу которую я умудрился пропустить?

ZuBy
Сделай через события формы OnMouseDown, OnMouseMove, OnMouseUp

var

  Moving:boolean = false;

  MovPoint := TPoint;

procedure TQBForm.MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  Moving := WindowState <> wsMaximized;

  MovPoints := Point(X, Y);

end;
procedure TQBForm.MouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

var

  PointXY: TPoint;

begin

  if Moving then

  begin

    PointXY := ClientToScreen(Point(X - MovPoints.X, Y - MovPoints.Y));

    Left := PointXY.X;

    Top := PointXY.Y;

  end;

end;
procedure TQBForm.MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  Moving := false;

  MovPoints := Point(0, 0);

end;

uberchel
Так удобнее и быстрее:

if ReleaseCapture then

    Form1.Perform(WM_SYSCOMMAND, $F012, WM_MOVING);

тема на форуме

Похожие статьи

• Перемещение формы за панель
• Cвернуть всё кроме моей формы
• Массив чекбоксов, как в PHP узнать, какой из чекбоксов выбран?
• Как передать значение из <select> в action формы
• Запретить выход курсора за API форму
• Как создать дочернее окно при нажатии на кнопку?
• Соединить 2 edit линией
• Пример использования потока в форме
• Запретить сворачивание главной формы
• Задать свой обработчик событий у формы