关于限定鼠标范围的问题。

Question

我在一本书上看到一个关于限定鼠标范围的代码。
当我把我的鼠标限定在我的窗体后，如果我拖动标题栏，问题就出现了，鼠标自动的就解除了范围的限定。代码不好使，为什么？
可以给一段好使的代码吗？

Answer 1

锁定鼠标:
    BOOL ClipCursor(
                CONST RECT *lpRect
          );
接除锁定也是用这个,所用参数有NIL就可以了

Answer 2

//呵呵，+20分：）procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Rect:TRect;
begin
   with Rect do
     begin
        left:=Form1.Left;
        top:=Form1.Top;
        bottom:=Form1.Top+Form1.Height;
        right:=Form1.Left+Form1.Width;
        windows.clipcursor(@Rect);
     end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  windows.ClipCursor(0);  //恢复Mouse的移动区域
end;