Überprüfen ob eine Komponente sich in einem bestimmten Bereich befindet

[DeddyH]

Delphi-Quellcode:

function Ueberlappung(R1, R2: TRect): Bool;
var dummy: TRect;
begin
  Result := IntersectRect(dummy,R1,R2);
end;

...

if Ueberlappung(Shape1.BoundsRect, Shape2.BoundsRect) then
  ShowMessage('Aha');

So in etwa müsste das doch funktionieren.