将鼠标锁定在固定区域,全屏初始化!

Question

var rect:trect;
  rect.Left:=screen.Width;
  rect.Top:=screen.Height;
  rect.Right:=screen.Width;
  rect.Bottom:=screen.Height;
  clipcursor(@rect);现实鼠标固定form1.windowstate:=wsMaximized;
现实程序最大化。

Answer 1

1、些个函数处理方便些。参数Lock: boolean; //true:锁定鼠标 false:恢复正常  
  var tmpRect: TRect  if lock then
    tmpRect := Rect(1, 1, 1, 1)
  else
    tmpRect := Rect(0, 0, Screen.Width, Screen.Height);
  ClipCursor(@tmpRect);
  ShowCursor(not lock);
2、 form1.windowstate:=wsMaximized;
3、其他的希望你看看书，很容易的。