screenToClient liefert komische Werte

[Medium]

ClientToScreen() und ScreenToClient() fragen die Mausposition nicht selbsttätig ab, das musst du schon noch selber tun. Dafür ist ja der Parameter vom Typ TPoint gedacht. Die Funktionen sind dazu gedacht, dass wenn man z.B. mit Mouse.CursorPos die Bildschirmkoordinaten erfragt hat, man aber die relativen Koords zu einem Formular braucht, diese mit

Delphi-Quellcode:

var
  formRelativePos: TPoint;
begin
  formRelativePos := Form1.ScreenToClient(Mouse.CursorPos);

bekommen kann. Umgekehrt liefern manche Ereignisse/Berechnungen auch relative Koordinaten, und wenn man dann aber die Bildschirmkoordinaten braucht, nimmt man sich die Gegenfunktion ClientToScreen() her. Der wichtige Teil ist aber, dass DU selber die Mausposition nicht übergibst, und deswegen keine sinnvollen Werte bekommst.