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?

[himitsu]

Alle Controls/WinControls haben eine Methode ScreenToClient und ClientToScreen.

Warum MonitorNum=0 ?
Was passiert, wenn du mal 3 Monitore hast?

Der gefundene Monitor gibt dir sein Rect und damit solltest du besser direkt rechnen.



TPoint und TRect haben ein .Offset oder das alte einsame OffsetRect.


PS: FindVCLWindow (falls man nicht eigentlich den Monitor sondern das darauf wissen wollte)
Und auch Forms haben ein Monitor-Property, der das zugehörige Rect gibt.

[PeterPanino]

Du meinst also?:

MouseXOnCurrentMonitor := pt.X - CurrentMonitor.BoundsRect.Left;
MouseYOnCurrentMonitor := pt.Y - CurrentMonitor.BoundsRect.Top;