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;