加一个Ttimer组件,
声明事件:
procedure mymessage(var Msg: TMsg; var Handled: Boolean);
procedure myidle(Sender: TObject; var Done: Boolean);
声明全局变量:
var count:integer;
在tmainformcreate事件中加以下4句:
count:=1;
timer1.enable:=false;
application.OnMessage:=mymessage;
application.OnIdle:=myidle;
procedure tmainform.myidle(Sender: TObject; var Done: Boolean);
begin
timer1.Enabled :=true;
end ;
procedure tmainform.mymessage(var Msg: TMsg; var Handled: Boolean);
begin
if (msg.message= wm_mousemove) or (msg.message=WM_KEYDOWN) then
begin
timer1.Enabled :=false;
if count>=300 then
begin
.....
end
count:=0;
end ;
end;
procedure Tmainform.Timer1Timer(Sender: TObject);
begin
count:=COUNT+1;
end;