Question

Delphi中的一个较难的问题（有关shape控件）在线等

怎样判断一个shape是否在另一个shape之上？
比如不规则的shape1在窗体上，不可动，而shape2可以随机移动，当shape2移动到shape1上时，label1显示“移动到了”。
怎么实现

Answer 1

你的思路不太对，应该判断两个shape有交叉，或者，shape2的上下左右4个属性在shape1中，即：

if (shape2.left >= shape1.left)
and (shape2.right <= shape1.right)
and (shape2.top >= shape1.top)
and (shape2.bottom <= shape1.bottom) then
.......

类似的，还可用Windows API函数，如PtInRect等

Answer 2

你的思路不太对，应该判断两个shape有交叉，或者，shape2的上下左右4个属性在shape1中，即：
if
(shape2.left
>=
shape1.left)
and
(shape2.right
<=
shape1.right)
and
(shape2.top
>=
shape1.top)
and
(shape2.bottom
<=
shape1.bottom)
then
.......
类似的，还可用Windows
API函数，如PtInRect等