Mauskoordinaten anzeigen

[rockycat]

Hi!

Wie läßt sich die genaue Position (X/Y) der Maus darstellen?
Es sollen also in einem Edit oder Label die aktuellen Koordinaten des Mauspointers angezeigt werden, wenn der Benutzer diese in einem Fenster frei bewegt.

[Luckie]

TForm kennt das Ereigniss OnMouseMove.

[gekmihesg]

mouse.cursorpos //Tpoint

[p0w3r5tr34m3r]

Code:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 CursorPos:TPoint;
begin
 GetCursorPos(CursorPos);
 Label1.Caption := Format('%d horizontal | %d vertical', [CursorPos.X,CursorPos.Y]);
end;

so gehts auch...

MfG Power

[stoxx]

Hi p0w3r5tr34m3r

hast Du den Eintrag Passwort und U sername verwechselt ? *fg*