So müsste das funktionieren:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
Rec: TRect;
begin
Rec.Left := Left;
Rec.Top := Top;
Rec.Right := Left + Width;
Rec.Bottom := Top + Height;
ClipCursor(@Rec);
end;
Mausbereich freigeben:
ClipCursor(nil);