使用BorderStyle bsNONE移動窗體？

Question

如果將BorderStyle設置爲bsNONE作爲邊框樣式，如何移動窗體？ in firemonkey MAC OS X

Answer 1

如果沒有表單頭，您需要爲用戶滾動自己的方法來移動表單。

要在代碼中移動表單，可以設置表單的Left和Top屬性。

Answer 2

有你如何做到這一點的HD FireMonkey XE4桌面應用程序：

var 
Form1: TForm1; 
isDraging: boolean; 
X0, Y0: single; 

implementation 

{$R *.fmx} 

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Single); 
begin 
    isDraging := True; 
    X0 := X; 
    Y0 := Y; 
end; 

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

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

測試，適用於Windows 7和Mac OS X Lion的。