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

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只出现一次。将该代码放在键事件处理程序中。

同时确保两个图像具有相同的父图像，否则您必须将其中一个图像与另一个图像相比较。

Answer 3

在KeyUP / Down / Press事件中（无论您使用哪个键来处理键）或移动矩形的过程，您都需要在创建时检查交叉点。