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
|