macos - BorderStyle bsNONE でフォームを移動しますか?

Question

がボーダースタイルBorderStyleに設定されている場合、フォームを移動する方法は? bsNONEfiremonkey 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 でテスト済みで動作します。