Image Position überprüfen

[Bummi]

Delphi-Quellcode:

var
  r: Trect;
begin
  if intersectRect(r, Image1.BoundsRect, Image2.BoundsRect) then
  begin
    Caption := Format('L: %d, T: %d, R: %d B: %d', [r.Left, r.Top, r.Right,
      r.Bottom]);
  end;
end;

[newmusicslamer]

Danke jetzt geht es mir hat nur die Variable gefehlt