原创 Delphi组件的坐标变换

在Delphi中，可以通过下面两个属性获取一个可视组件的位置。

BoundsRect 外框位置

ClientRect 内部控制区

不过这个位置是相对父组件的位置，不是屏幕的绝对坐标。因此经常还需要进行转换，这时可以使用下面的函数：

ClientToParent  转换为父组件的坐标

ParentToClient  父组件坐标转换为相对坐标

ClientToScreen  转换为屏幕坐标

ScreenToClient  屏幕坐标转换为相对坐标

还有一个函数，判断一个点是否在一个矩形区域内：

PtInRect