delphi中时间控制

用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;

请看一下我的实现：（虽然还是用了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.

转载于:https://www.cnblogs.com/hssbsw/archive/2008/09/06/1285443.html