[SOLVED] Keep mouse in one window

[What I can do]

OS: Windows 10
Project: keep use from leaving the bounds of the window

This was very easy with Delphi

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject) ;
2.  var r : TRect;
3.  begin
4.      //it would be a good idea to move the
5.      //mouse inside the form before restriction
6.     r := BoundsRect;
7.     ClipCursor(@R) ;
8.  end;
9.  
10.  procedure TForm1.FormClick(Sender: TObject) ;
11.  begin
12.     //always be sure to release the cursor
13.     ClipCursor(nil) ;
14.  end;

but not compatiable with Lazarus

I have a kid who plays simple on line games but I make him earn it by learning some words on my flash card type app
I just want to keep the mouse inside that flash card app until he is done

[Fibonacci]

Try OnActivate instead of OnCreate

[Martin_fr]

Code: Pascal  [Select][+][-]

1. uses windows;

ClipCursor is in the windows unit. It only works for Windows.

And, well, it has a different call signature

Code: Pascal  [Select][+][-]

1. ClipCursor(R)

You don't need the "@" => that is handled by the compiler.

Though, given that, I am not sure how you can pass "nil"....

You can always define it yourself.  (still "uses Windows;" so you have the types)

Code: Pascal  [Select][+][-]

1. function MyClipCursor(lpRect:PRECT):WINBOOL; external 'user32' name 'ClipCursor';

[Fibonacci]

Though, given that, I am not sure how you can pass "nil"....

Here:
https://gitlab.com/freepascal.org/fpc/source/-/blob/main/rtl/win/wininc/func.inc#L588

[What I can do]

Fibonacci
 Yes, it is in the active

 Martin_fr
  Thank you, you were absolutely CORRECT!
  and I tested with the @ and everything still worked fine by just adding Window,
 the @ and nil seamed to work perfectly during the test run

thanks to everybody
hugs, high five, firm handshake