代码
比这篇新的文章:
简单的canvas示例及其鼠标响应事件
比这篇旧的文章: 使用Canvas的javascript示例，太震撼了
作者: 可乐瓶子, 点击859次, 评论(0), 收藏者(0), , 打分:
所有评论，共0条：( 我也来说两句)
比这篇旧的文章: 使用Canvas的javascript示例，太震撼了
锁定鼠标
语言: Delphi, 标签: 无 2008/08/12发布 1年前更新作者: 可乐瓶子, 点击859次, 评论(0), 收藏者(0), , 打分:
Delphi语言: 锁定鼠标
01 program Project1;
02
03 {$APPTYPE CONSOLE}
04
05 uses Windows;
06
07 var
08 r0, r1: TRect;
09 begin
10 WriteLn('别害怕！15秒后你的鼠标就可以使用了! ^_^');
11
12 GetClipCursor(r0); //获取当前鼠标的活动范围
13
14 // 设置新的鼠标活动范围
15 r1.Left := 0;
16 r1.Top := 0;
17 r1.Right := 1;
18 r1.Bottom := 1;
19 ClipCursor(@r1);
20
21 // 暂停15秒
22 Sleep(15000);
23
24 // 回复原来的鼠标活动范围
25 ClipCursor(@r0);
26 end.
02
03 {$APPTYPE CONSOLE}
04
05 uses Windows;
06
07 var
08 r0, r1: TRect;
09 begin
10 WriteLn('别害怕！15秒后你的鼠标就可以使用了! ^_^');
11
12 GetClipCursor(r0); //获取当前鼠标的活动范围
13
14 // 设置新的鼠标活动范围
15 r1.Left := 0;
16 r1.Top := 0;
17 r1.Right := 1;
18 r1.Bottom := 1;
19 ClipCursor(@r1);
20
21 // 暂停15秒
22 Sleep(15000);
23
24 // 回复原来的鼠标活动范围
25 ClipCursor(@r0);
26 end.
所有评论，共0条：( 我也来说两句)