如何锁定鼠标，不是把鼠标限制在一个区域(50分)

vikyshen · 2001-10-21

如何锁定鼠标，不是把鼠标限制在一个区域，而是鼠标在那，就被锁定在那，适合所有 windwos版本 如果回答出下面的问题一样给分：   在win2000里怎么调用锁定计算机功能啊

plwei · 2001-10-21

很简单，下面给出一个例子： procedure Tform1.limitmouse(con:trect); begin     ClipCursor(@con); // 限制鼠标移动区域 end; procedure Tform1.releasemouse; var   rtScreen: TRect; begin   rtScreen := Rect(0, 0, Screen.Width, Screen.Height);   ClipCursor(@rtScreen); end; procedure TForm1.FormActivate(Sender: TObject); var   con:trect; begin   con:=form1.BoundsRect;   con.Left:=left;   con.Top:=top;   limitmouse(con);   //限制鼠标 end;

micony · 2001-10-21

这和将鼠标限制在一个范围之内一样啊如下: var r:TRect; begin    r:=Rect(0,0,0,0);    ClipCursor(@r); end; this is all

plwei · 2001-10-21

将这个范围无限缩小为一个点不就OK了吗？[

]

刘李子 · 2001-10-21

我以为是什么问题，这和限制鼠标在一个范围之内有啥区别。 你那WIN2000下锁定计算机是什么意思，说明白一点。

vikyshen · 2001-10-21

锁定计算机就是：在win2000里不是有个锁定计算机的功能吗，按ctrl+alt+del，就有这个 功能选拉，我要用程序调用 还有你们那把鼠标限制在一个范围，在把范围设置成无限小，这时鼠标不是会定在你那 限制的地方吗，我要的是鼠标在那个地方就定在那个地方

redsky.l · 2001-10-21

这句话可以实现： Var    temp:integer;     SystemParametersInfo(Spi_screensaverrunning,1,@temp,0); 这句话解除： Var    temp:integer;    SystemParametersInfo(spi_screensaverrunning,0,@temp,0);

jingtao · 2001-11-03

function My_CurLock(ileft, itop, iright, idown: integer): Boolean; //鼠标锁定 var   aRect: TRect; begin   aRect := Rect(ileft, itop, iright, idown);   Result := ClipCursor(@aRect); end; 先取得当前位置 　　VAR　P：TPOINT； 　　　BEGIN 　　　　GETCURSORPOS（P）； 　　　　POP1.POPOP(P.X，P.Y)；       END；                 function My_CurUNLock: Boolean; //鼠标解锁 begin   Result := ClipCursor(nil); end;

baidie · 2003-03-24

同意用getcursorpos(p),然后clipcursor(p.x,p.y,p.x,p.y)

旭日升 · 2003-05-27

隐藏Mouse的指针 ShowCursor(0) ; int ShowCursor(     BOOL bShow // cursor visibility flag     &nbsp

;

hekinami · 2003-06-07

baidie的方法很简便

LiChaoHui · 2003-06-07

不停的调用SetCursorPos

esuper2000 · 2003-06-07

获得当前鼠标指针位置，再进行限制

如何锁定鼠标，不是把鼠标限制在一个区域(50分)

vikyshen

Unregistered / Unconfirmed

plwei

Unregistered / Unconfirmed

micony

Unregistered / Unconfirmed

plwei

Unregistered / Unconfirmed

刘李子

Unregistered / Unconfirmed

vikyshen

Unregistered / Unconfirmed

redsky.l

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

baidie

Unregistered / Unconfirmed

旭日升

Unregistered / Unconfirmed

hekinami

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

esuper2000

Unregistered / Unconfirmed

Similar threads