Ich denke, hier sollte nicht der Cursor "springen", sondern das Lineal. Also vielleicht so etwas in der Art?
Delphi-Quellcode:
// ein Bevel auf die Form packen
// OnMouseMove der Form:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Bevel1.Left := Round(x/50) * 50;
end;
In einigen Programmen hat man ja so eine Raster-Funktion. Da wird auch nicht der Mauscursor an sich so eingefangen, sondern nur die aktiven Objekte. Meistens aber in Form einer Drag&Drop-Methode, nicht direkt beim bloßen Bewegen der Maus.