Image Position überprüfen

[newmusicslamer]

diese Antwort ist rein unnötig, da im falschen thread gepostet wurde

[himitsu]

Zitat von newmusicslamer:

diese Antwort ist rein unnötig, da im falschen thread gepostet wurde

Der Code ist soweit richtig, aber sicher, daß die Images genau übereinanderliegen? (nichtmal 1 Pixel daneben)

[newmusicslamer]

Die erste Antwort von mir musst du nicht verstehen... Wollte eine Antwort auf einen Thread schreiben, aber nicht für diesen Thread also schnell editiert...

Nein, eigentlich sollte das funktionieren, denn image5 bewegt sich immer plus (oder minus) 50. Und image1 mit 10. Die left endet beides auf 4. Top auf... oh... Sind nicht gleich groß schnell geändert und nein funktioniert immer noch nicht

[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...