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

[StoxFT]

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

[ZuBy]

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

[asmprog]

Сообщение от ZuBy

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

не забывая, про http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[ZuBy]

Я имел ввиду такой код...

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);

[ZuBy]

Сообщение от uberchel

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

if ReleaseCapture then
    Form1.Perform(WM_SYSCOMMAND, $F012, WM_MOVING);

Не спорю, сам пользуюсь. Но при вызове зависает форма, что весьма заметно.

[uberchel]

Не знаю, у меня не чего не тормозила, если что еcть еще вариант, использовать вместо perform, sendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, WM_MOVING);

[ZuBy]

Сообщение от uberchel

Не знаю, у меня не чего не тормозила, если что еcть еще вариант, использовать вместо perform, sendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, WM_MOVING);

при вызове ReleaseCapture форма замирает на некоторое время, и только потом можно совершать перемещение.

это хорошо заметно например в форме где используется Таймер, разного рода визуализация, динамические графики и подобное...

[StoxFT]

Насколько я помню - в FireMonkey не реализован Perform. Или я ошибаюсь?