Prüfen ob Koordinate TPoint in TRect ist.

Gast Erhaltene Danke: 1

Da gibt es eine Funktion, nur fällt mir der Name nicht ein.

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button2Click(Sender: TObject);
var
  R: TRect;
  P: TPoint;
begin
  P.x := 10;
  P.y := 10;
  R := Rect(0, 0, 20, 20);
  ...
end;

Das soll eine Art if P in R then ShowMessage( 'Ja' ). Es gibt sowas nur weiß ich nicht den Namen der Funktion.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hi!

Ich würde für so etwas keine Funktion bemühen. Das kann man doch über eine einfache IF-Abfrage realisieren, oder?

Quelltext

1:	if (p.x>=r.left) and (p.x<=r.right) and (p.y>=r.top) and (p.y<=r.bottom) then ShowMessage('Ja!');

MfG,
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Ich würde es mit PtInRect(Rect, Point) versuchen.

_________________
Ist Zeit wirklich Geld?

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Wenn man die Funktion kennt, prima. Aber danach suchen würde ich nicht gerade. Für Popov in diesem Fall aber die bessere Lösung.

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Gast Erhaltene Danke: 1

Danke erstmal für den Tipp.

@Peter Lustig

Das war kein dannach suchen. Ich wußte, daß es die Funktion gibt nur ist mir der Name entfallen.