Cursor einfangen

[Gausi]

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.