Delphi Frage

[Yoghurt]

So sollte es funktionieren (verwende das leicht abgewandelt in einem Spiel)...

procedure TForm1.LockMouse;
var
CursorClipArea : TRect;
ImageOriginInScreenCoordinates : TPoint;
begin
ImageOriginInScreenCoordinates :=
ClientToScreen( Point(Form1.Left,
Form1.Top) );

CursorClipArea := Bounds(ImageOriginInScreenCoordinates.X,
ImageOriginInScreenCoordinates.Y,
Form1.Width, Form1.Height);

Windows.ClipCursor(@CursorClipArea);
end;

procedure TForm1.UnlockMouse;
begin
Windows.ClipCursor(nil);
end;

lg Yoghurt