关于delphi触摸程序的一个问题(用户一段时间不操作后自动转到特指form)

Question

用delphi做了一个触摸程序.
用户提出当无人操作一段时间后,打开A页面,做循环企业简介
当再次有人操作时,打开主页面B.
请问各位高人,怎么实现?
timer怎么设置呀,是否设置在每个页面的鼠标事件中?
谢谢!分不多,当帮忙了!

Answer 1

我在每个页面中添加了一个timer.
show页面时,开启.
鼠标move时,先关闭,再开启(再次计时).
但我又遇到一个问题,页面中控件太多,还有些控件遮挡了部分控件,
我希望只需在form的鼠标move事件设置,请问这个怎么实现呀?

Answer 2

搞个Timer过几秒调用如下函数function  LastInput:DWord;   //检测无操作时间
var
  LInput: TLastInputInfo;
begin
    LInput.cbSize := SizeOf(TLastInputInfo);
    GetLastInputInfo(LInput);
    Result := GetTickCount - LInput.dwTime;
end;