Limiter les déplacements de la souris



Pour limiter les mouvements de la souris, il suffit de faire un appel à la fonction ClipCursor, qui prend en paramètre un pointeur vers un rectangle d'origine l'origine de l'écran, c'est à dire le coin haut-gauche.

Par exemple, pour qu'au démarrage de votre application la souris ne puisse bouger qu'à l'intérieur de votre fenêtre, il faut mettre le code suivant dans l'évennement OnCreate:

Limiter les déplacements de la souris

procedure TForm1.FormCreate(Sender: TObject);
var
  Rect: TRect;
begin
  Rect.TopLeft:= ClientToScreen(ClientRect.TopLeft);
  Rect.BottomRight:= ClientToScreen(ClientRect.BottomRight);
  ClipCursor(@Rect);
end;



Attention, il ne faut pas oublier de libérer la souris à la sortie de votre application, car sinon elle sera toujours limitée à cette zone. Pour la libérer, il suffit de ré-appeler ClipCursor avec un pointeur vide en paramètre:

Libérer la souris

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ClipCursor(nil);
end;



3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.006 Secs