屏幕保护的思路如何实现！！

Question

我有一个form 窗体，如果在二分钟内没有什么操作就显示这个窗体，想屏幕保护一样，如何实现

Answer 1

//如果只针对自己的程序可以这样做～～
//参考如下代码～～
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  Timer1.Enabled := False;
  Timer1.Enabled := True; //从新记时
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ShowMessage(Format('你已经有"%d"秒，没动这个程序了！',
    [TTimer(Sender).Interval div 1000]));
end;

Answer 2

这段代码是什么意思，小弟有点不懂，我写在form中它说ApplicationEvents1Idle有问题，
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  Timer1.Enabled := False;
  Timer1.Enabled := True; //从新记时
end;