当矩形与另一幅图像相交时,如何使一幅图像消失？

Question

我有一张可以随键盘移动的照片.我想要的是当我将它移到另一个图像之上时,另一个图像消失了.我怎样才能做到这一点？到目前为止,这是代码,但它不起作用.提前致谢.

Image3是移动的,Image6是我想要消失的.

procedure TArmcutting.FormCreate(Sender: TObject);
begin
    DoubleBuffered := true;
    if Intersectrect (overlay, Image3.BoundsRect, Image6.BoundsRect) then
    begin
        Image6.Visible := False;
    end;
end;

编辑:谢谢大家的答案!

Answer 1

每次图像移动时都需要检查交叉点,而不是在表单创建时检查.

Answer 2

现在它只在应用程序启动TForm.OnCreate时检查交集:只发生一次.将该代码放在键事件处理程序中.

还要确保两个图像具有相同的父图像,否则您必须将其中一个图像与另一个图像相比较.