PointToStr

Verweis: RectToStr StrToPoint
Uses: System
Eingabe: Punkt(Tpoint)
Ausgabe: Punkt(String)
Funktion: Gibt einen Punkt vom Typ Tpoint in einen String formatierten String aus.

Vorbereitung: Erstellen sie eine IDE Anwendung und ziehen Sie einen TButton auf die Form. Doppelklicken sie auf den Button und ersetzen Sie das Ereignis durch folgenden Quelltext:

function PointToStr(Punkt: TPoint): string;
begin
  Result := Format('X: %d, Y: %d',[Punkt.X, Punkt.Y]);
end;

Hier haben Wir eine Funktion die ich ab und an benötige Sie macht aus einem Punkt einen Text. Manchmal kommt es vor, das man einen Wert als TPoint vorliegen hat.

Aufruf

procedure TForm1.Button1Click(Sender: TObject);
var
xyposition:Tpoint;
begin
  //Abstands Position bestücken
  xyPosition:=Point(200,200);
  //Relativer abstand von button nach punkt
  caption:=PointToStr(button1.ParentToClient(xyposition));
end;

In dem Aufruf möchte ich wissen wie viel der Punkt 200,200 von meinem Startpunkt des Buttons entfernt ist. Mit “Caption” lasse ich mir den relativen Abstand in x un y im Fenster-Titel Anzeigen. Bezogen von dem Punkt zum Button. Wenn der Punkt z.B. rechts vom Button liegt so ist dieser Positiv. Dies bekomme ich durch “ParentToClient” angezeigt.