Zitat von
smart:
Delphi-Quellcode:
If X < 0 then
Mouse.CursorPos := Point(Top + Form1.Top + (Height- ClientHeight) div 2, Mouse.CursorPos.Y);
den Code versteh ich nicht? Warum X < 0? Außerdem fixierst du hier die x und nicht die y-Koordinate. Ist Top nicht das selbe wie Form1.Top?
Ich würde es entweder wie Sunlight meine mit ClipCursor machen, oder in FormMouseMove den y-Wert immer wieder auf eine Konstante setzen. Auf welcher Höhe soll der Cursor denn fixiert werden? In der Mitte des ClientBereichs der Form?
EDIT: @ Sunlight:
Bei dem Code kann sich die Maus aber doch weiterhin hoch und runter bewegen.