放一个TTimer控件, ontimer := close;

[quote]放一个TTimer控件, ontimer := close;[/quote]


能说详细一下吗？我是新手来的。例如　怎么取得没有输入的时间？

用TTimer的思路有点问题。
请参考以下思路：
  窗体建立时，记录GetTickCount值（关于GetTickCount，请Google），然后，捕捉鼠标键盘消息，如有发送到本窗体的鼠标键盘消息，则重新记录GetTickCount值，如无，则计算当前GetTickCount值减去原值是否大于规定时间，如大于则Close。

例子如下：

//思路是这样的，但我的代码并不一定全面。

窗体类的
  private部分，放一个全局变量：
    FX : Cardinal;

在窗体上放一个ApplicationEvents控件，在其OnMessage中写代码：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (GetTickCount - FX) > 1000 * 60 * 2 then Self.Close;//如超时2分钟则关本窗体
  if (Msg.message = WM_MouseMove)//如果鼠标在窗体范围内移动
  or (Msg.message = WM_KeyDown)  //或者键盘按下
  then FX := GetTickCount;       //则重新计时
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FX := GetTickCount;
end;

续：当然，还有一个问题：即使超时，也要在发生某个Windows消息时才执行关闭代码。这个问题，请自行解决。

另，请参考：

http://topic.csdn.net/t/20051118/19/4403537.html

再续：

“即使超时，也要在发生某个Windows消息时才执行关闭代码。这个问题，请自行解决。”

----或许这就要结合TTimer来解决了。

:)

首先,肯定要放一个计时器timer,这个timer的ontime事件就是关闭窗口,但是,现在要处理的就是怎么控制长时间不操作就让计时器走到头后完成关闭动作.

现有两种方法,一种比较简单,就是使用form带的事件,如onmousemove或onkeypress事件之类的,另外一种就稍复杂些,就是做个钩子,专门捕捉系统消息如鼠标和键盘之类的,只要有动作,就把timer的重新关闭再打开,相当于复位.

以上就是思路.

写个伪代码吧.

//timer的断ontimer事件
  application.close;

//窗体的onmousemove事件
  timer1.enabled:=false;
  timer1.enabled:=true;

就这么简单,当然,这种方法可能不是最好的,能解决问题就行.

至于怎么用钩子,那你可以在google上,以"delphi 鼠标 键盘 钩子"为关键词搜一下,可以找到巨多的结果.

楼上：
    这样的需求，哪用得着钩子啊？呵呵。

    请看一下我的实现：（虽然还是用了TTimer，但需注意，在我的代码里，TTimer不是主角）

以下是全部代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ApplicationEvents1: TApplicationEvents;
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    FX : Cardinal;/////////////////////////<-----------------------
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Caption := '本窗体如果客户区无鼠标键盘操作则10秒后关闭';//包括鼠标在客户区移动
  Button1.Caption := '鼠标测试';
  Edit1.Text := '按键输入';
  FX := GetTickCount;  ////赋初值
  Timer1.Interval := 1;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (GetTickCount - FX) > 1000 * 10 then Self.Close;//如超时10秒则关本窗体
  if ((Msg.message >= WM_MouseFirst) and (Msg.message <= WM_MouseLast))//如果有鼠标消息
  or ((Msg.message >= WM_KeyFirst) and (Msg.message <= WM_KeyLast))//或者有键盘消息
  then FX := GetTickCount;                                     //则重新计时
end;

procedure TForm1.Timer1Timer(Sender: TObject);//显示倒计时
begin
  Label1.Caption := InttoStr(10 - (GetTickCount-FX) div 1000);
end;

end.

这个问题我以前也接触过，开始的时候我也找不到问题的原因，后来我进了一个技术交流群，这个群里的人挺多的，在里面可以沟通技术，你可以进去看一下.群号是：六#二#八#七#八#零#四#三。另外，这个群里可以接项目。