Delphi Firemonkey应用程序取得控制的位置(坐标)的话

本文整理自网络，侵删。

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

 

相关阅读 >>

Delphi 查看所有的串口设备

Delphi android应用程序的关闭退出

Delphi监控指定进程防止被关闭

Delphi dbexpress的upwherekeyonly的使用注意事项

Delphi image1 图像复制到剪切板

Delphi 禁止改变窗口大小和移动窗口

Delphi dll窗体调用解

Delphi adoconnection1连接mssql数据库方法

Delphi中的record怎么动态分配内存？

Delphi hextoint

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Firemonkey应用程序取得控制的位置(坐标)的话