请教各位网友：问个delphi中定时器的问题：(100分)

N

netbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #1

我想设计个程序，当mouse在一定时间内没有移动时，
就关闭程序，我用了个定时器控件，但我不知如何
判断mouse在一定时间内没有移动（我只知道mouse
移动时会产生个事件），请问：我该如何做？谢谢。

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #2

用windows.GetCursorPos得到鼠标的位置,并记录下来，启动定时器(间隔100ms)
在ontimer中windows.GetCursorPos,如果鼠标位置没有变动,不动时间+100ms,否则不动时间=0

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #3

OnIde 行吗？

 

T

TForm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #4

设个变量,每隔一段时间加1,鼠标一动则回到0,判断变量有没有达到最大值,达到了就关闭.

 

梆

梆梆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #5

把下面的程序放在定时器里。
use shellapi
....
predure test;
var poin:tpoint;
x,y:integer;
begin
getcursorpos(poin);
if (poin.x<>x) or (poin.y<>y) then 你要做的的事情
else
begin
x:=poin.x;
y:=poin.y;
end;

end;

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #6

我觉得还是TFORM的方法容易做

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #7

定时器事件中对一个全局变量计数
mousemove事件清零该计数器
计数到Close

 

N

netbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #8

接受答案了.

 

T

TForm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #9

混蛋!怎么把分数给了iie?????看看谁先说的!!!!
以后不来大富翁了!!!