Image Position überprüfen

[newmusicslamer]

Hallo!

Ich bins schonwieder...
Ich habe eine Frage unzwar will ich mit einem Timer überprüfen ob ein image auf einem anderen ist. das habe ich hiermit versucht:

Code:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if (image1.Top = image5.Top) and (image1.Left = image5.Left) then
gauge1.Progress := gauge1.Progress - 10 ;

end;

Das klappt leider nicht D:

Ich hoffe ihr könnt mir helfen!

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

[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