在Delphi Firemonkey应用程序中，控件的Position属性返回控件在父组件上的位置。

控件的LocalToAbsolute方法返回控件在窗体上的位置。

procedure TForm1.Button1Click(Sender: TObject);

var

  Point: TPointF;

begin

  Point := Button1.LocalToAbsolute(PointF(0, 0));

  // Button1的父组件上的坐标

  Memo1.Lines.Add(Format('Button1.X=%f, Button1.Y=%f', [Button1.Position.X, Button1.Position.Y]));

  // Button1窗体上的坐标

  Memo1.Lines.Add(Format('Point.X=%f, Point.Y=%f', [Point.X, Point.Y]));

end;