Mauskoordinaten relativ zum aktuellen Monitor?

[PeterPanino]

Guten Tag! Ich möchte die Maus-Koordinaten relativ zu dem Monitor eruieren, auf dem sich die Maus befindet. Also: X = 0 am jeweiligen linken Bildschirmrand, und Y = 0 am jeweiligen oberen Bildschirmrand.

Beispiel: Wenn der Benutzer 2 Monitore verwendet und der Hauptbildschirm links angeordnet ist:

Delphi-Quellcode:

var
  pt: Winapi.Windows.TPoint;
  CurrentMonitor: Vcl.Forms.TMonitor;
  MouseXOnCurrentMonitor: Integer;

Winapi.Windows.GetCursorPos(pt);
CurrentMonitor := Vcl.Forms.Screen.MonitorFromPoint(pt);

if CurrentMonitor.MonitorNum = 0 then
  MouseXOnCurrentMonitor := pt.X
else
  MouseXOnCurrentMonitor := pt.X - Screen.Width;

Aber vielleicht hat jemand schon das Rad erfunden?