Mausbereich verkleinern |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;