Перемещение формы без полей в Firemonkey

Question

В формах VCL я использую WM_SYSCOMMAND, но в firemonkey он не объявлен.

Я проверить этот код:

procedure TForm4.dragPanelMouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Single); 
begin 
    isDraging := true; 
    X0 := X; 
    Y0 := Y; 
end; 

procedure TForm4.dragPanelMouseMove(Sender: TObject; Shift: TShiftState; 
    X, Y: Single); 
begin 
    if isDraging then 
    begin 
    Form4.Left := Trunc(Form4.Left + X - X0); 
    Form4.Top := Trunc(Form4.Top + Y - Y0); 
    end; 
end; 

procedure TForm4.dragPanelMouseUp(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Single); 
begin 
    isDraging := False; 
end; 

это работает, но только для медленных движений !!!

Как переместить форму в Firemonkey?

Answer 1

Если код VCL, который вы хотите повторить это:

SendMessage(MyForm.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); 

тогда эквивалент FMX будет:

SendMessage(FmxHandleToHWND(MyForm.Handle), WM_SYSCOMMAND, SC_DRAGMOVE, 0); 

Причина заключается в том, что MyForm.Handle является FMX ручкой. Это не то же самое, что и дескриптор окна. Вы конвертируете в дескриптор окна с FmxHandleToHWND().

Вы, возможно, потребуется объявить несколько констант:

const 
    WM_SYSCOMMAND = $0112; 
    SC_DRAGMOVE = $F012; 

Answer 2

Что проще всего использовать метод StartWindowDrag формы. Таким образом, он будет работать как в Windows, так и в MacOS и только в одной строке кода. Вроде так:

procedure TForm4.dragPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); 
begin 
    Self.StartWindowDrag; 
end;