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.