我希望
1、一个窗体如果没有任何鼠标点击,拖动等操作,那么10秒钟后自动关闭或最小化
2、一个窗体打开后,不管有没有对这个窗体操作,10秒钟后无条件自动关闭或最小化
谢谢

解决方案 »

  1.   

    窗体上放一个Timer,Interval属性为10000,OnTimer事件为代码就 close;
    这不是很容易吗?
      

  2.   

    2比较容易实现,如上1.参照2, 如果有鼠标/键盘操作,使Timer重新记时
      

  3.   

    在窗体的MOUSE,KEY,拖动事件里控制一个TIMER.
      

  4.   

    2.
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      Close;
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
      Timer1.Interval := 5000;
      Timer1.Enabled := true;
    end;