鼠标！！！！(100分)

K

kkitty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #1

在做客户程序时，如何对用户操作进行限制，就是当用户发出请求后，
等待应答，30秒后超时，在没等到应答也没操作时如何控制鼠标不能做其他操作，
并且改变鼠标的形状为自定义的那种，不是系统提供的那种。直到超时或应答到来时，
恢复鼠标原状

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #2

鼠标hook

 

K

kkitty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #3

to 人在昆明
能不能具体点我没用过hook

 

T

truecat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #4

用API设置鼠标的活动区域，如设定在你的窗体上的（100，100，102，102）内，它就无法移动
到别处了，就相当于锁定了鼠标

 

D

driver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #5

在全文搜索里查啊，找个例子改一下就行了。
这种程序设计的方法有可能导致用户摔鼠标，呵呵

 

K

kkitty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #6

to truecat
如何调用API呢，请指教！谢谢

 

K

kkitty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #7

哈哈，才30秒，还没来得及摔呢

 

M

matrox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #8

密切关注

 

D

dreamfly1024

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #9

ClipCursor

 

S

saling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #10

看看！！

 

A

ayz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #11

关注

 

C

carcode

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #12

如何将鼠标锁定在一定的范围内呢 (2001年1月8日)

--------------------------------------------------------------------------------


　
　
　
请在Form中放置二个 Button, 然後分别为这两个按钮定义OnClick响应事件如下:
// 限制
procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin

rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2);
// 座标换算
ClipCursor(@rtButton2);
// 限制鼠标移动区域
end;

// 还原
procedure TForm1.Button2Click(Sender: TObject);
var
rtScreen: TRect;
begin

rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;

 

Z

zlj555

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #13

carcode的办法也确实不错。

 

P

pengyi007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #14

关注中。。。。

 

原

原野飞侠

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #15

同意 carcode

 

菜

菜妹妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #16

我觉得对于用户来说在操作应用程序时，不希望你限制他鼠标的移动的
限制鼠标会让人觉得很不舒服的，我建议还是做成像注册表中查找时的那种界面，
即简单容易实现又让人容易接受
就是做个小窗口，类似让用户等待的话，把这个小窗口设成BringToFront，
直到消息到来时再取消

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #17

在用户发出请求后设置鼠标为crHourGlass。
结束后换成默认形状
///
Application.CreateForm(TChildForm, ChildForm);
Application.OnMessage:=MainForm.MyMessage;/////////////////////////////////////////
Application.Run;
/////
procedure TMainForm.MyMessage(var Msg: TMsg;
var Handled: Boolean);
begin
if (Msg.message=WM_LBUTTONDOWN) or (Msg.message=WM_LBUTTONUP)then
if Screen.Cursor=crHourGlass then
begin
Beep;
Handled:=True;
end;

end;

 

K

kkitty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-20

• #18

接受答案了.