Mauskoordinaten anzeigen

[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