Home » Tipps & Tricks » System » Tastatur und Maus » Mausbereich verkleinern
Mausbereich verkleinern
Um den Mausbereich zu verkleinern, schreibe die folgenden Zeilen z.B. in das FormCreate-Ereignis des Formulars:
procedure TForm1.FormCreate(Sender: TObject); var R: TRect; begin R := BoundsRect; ClipCursor(@R); end;
Um die Maus wieder auf dem gesamten Bildschirm zuzulassen:
ClipCursor(nil);
Da sich diese Anweisung auf den ganzen Rechner bezieht, sollte der Cursor wieder auf dem gesamten Bildschirm zugelassen werden, wenn eine andere Anwendung aktiviert wird. Hierzu kann beispielsweise das Application-Ereignis OnDeactivate benutzt werden:
procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject); begin ClipCursor(Nil); end;