高手指点！如何设置触发OnMouseMove事件的间隔？

[cxz7531]

我在OnMouseMove事件里写了大量的代码，由于OnMouseMove事件触发太频繁，经常来不及反映，怎么设置触发OnMouseMove事件的间隔

[上海老李]

加个TIMER，再来一个全局变量，每次执行完MOUSEMOVE里的设全局变量为FALSE，TIMER中让全局变量为TRUE，当全局变量为TRUE时执行MOUSEMOVE里的东西

[cxz7531]

老兄， 我就是不想用TIMER才发帖子问大家的，再想想办法吧

[leonkim]

楼上的主意很好.
另外如果不怕麻烦可以自己写一个事件.

[leonkim]

即使是写事件也要用到Timer.
触发WM_mousemove的时间是操作系统定的,而且我查了msdn,好像没有可以设置时间间隔的方法.
如果可以改变的话,那其他的应用程序岂不是也要同时改了.

[merkey2002]

没有这个设置
不能无中生有啊
还是老老实实用timer好啦

[fengjn]

EvenStart: longint;
procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;

procedure WMMouseMove(var Message: TWMMouseMove);
begin
if (GetTickCount - EvenStart > 你的时间间隔（毫秒单位)) or
(EvenStart = 0) then
begin
MouseMove(KeysToShiftState(Keys), Message.XPos, Message.YPos);
EvenStart:= GetTickCount;
end;
end;

在Create中添加
EvenStart:= 0;