如何将鼠标限定在窗体范围之内！

Question

用clipcursor()函数
（不好意思，clip后面的单词记得不大确切，是鼠标的意思，在大部分控件都有鼠标移过时，指针形状变换的属性。对了！就是那个单词，讲了这么多废话，真是罪过！！！）
具体是：var rect:trect;
       begin
      rect.left:=form1.left;
      rect.right:=form1.left+form1.width;
      rect.top:=form1.top;
      rect.bottom:=form1.top+form1.height;
      clipcursor(@rect);
       end;
至此完毕；

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var r:trect;
begin
getwindowrect(form1.Handle,r);
clipcursor(@r);
end;