Image Position überprüfen

[noob2k9]

Du möchtest also überprüfen ob 2 Rechtecke sich überlappen nehme ich an

Schau dir mal die Funktion IntersectRect() an

Delphi-Quellcode:

function IntersectRect(const Rect1, Rect2: TRect): Boolean;
function IntersectRect(out Rect: TRect; const R1, R2: TRect): Boolean;
function IntersectRect(const Rect1, Rect2: TRectF): Boolean;
function IntersectRect(out Rect: TRectF; const R1, R2: TRectF): Boolean;

Um zu prüfen ob sich 2 Rechtecke überlappen benötigst du insgesamt 4 Vergleiche - wenn du sicherstellen kannst das die Rechtecke sich nur entlang einer Achse bewegen reichen sogar 2

[newmusicslamer]

geht das auch mit images?

[noob2k9]

Ein einfacher Aufruf könnte so aussehen

Delphi-Quellcode:

if IntersectRect(Image1.BoundsRect, Image2.BoundsRect) then begin
  //...
end;

Einen Nachteil hat diese Funktion jedoch: Sie liefert auch True zurück wenn die Rechtecke exakt nebeneinander liegen ohne sich zu überlappen. Wenn dies nicht der Fall sein sollte müsstest du dir eine eigene Funktion bauen (siehe oben 4 Vergleiche)

[newmusicslamer]

Jetzt sagt er mir dazu: Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden.

Könntest du sonst mal als Beispiel einen ganzen Quellcode posten? Ich bin noch ein blutiger Anfänger was Delphi und programmieren angeht...

[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