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 xe firemonkey的几个特色属性

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi 官方stylebook大全使用

Delphi xe7 android通过配置实现splash功能

Delphi stringgrid行列的增加和删除

两种方法用Delphi实现域名转ip地址---用nmhttp控件和winsock

Delphi 我的电脑连接到 internet 了吗？

Delphi一个非常完整的取windows os 版本信息的函数

Delphi image1 图像复制到剪切板

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

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