您当前的位置: 首页 > 网站编程 > PHP教程 > delphi简单判断程序30秒没有键盘和鼠标动作示例

delphi简单判断程序30秒没有键盘和鼠标动作示例

作者:不详 来源:网络 发布时间: 2014-08-19 21:04 点击:
本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数,表示30秒的间隔,具体实现如下,感兴趣的朋友可以参考下哈 以下为原代码: (这里给timer设置了1000ms)的参数,表示30秒的间隔!! 复制代码 代码如下: unit Unit1; interfa

delphi简单判断程序30秒没有键盘和鼠标动作示例

  本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数,表示30秒的间隔,具体实现如下,感兴趣的朋友可以参考下哈

  以下为原代码:

  (这里给timer设置了1000ms)的参数,表示30秒的间隔!!

  复制代码 代码如下:

  unit Unit1;

  interface

  uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

  type

  TForm1 = class(TForm)

  Memo1: TMemo;

  Button1: TButton;

  Timer1: TTimer;

  procedure Timer1Timer(Sender: TObject);

  procedure Button1Click(Sender: TObject);

  private

  { Private declarations }

  public

  procedure AppMessageHandler(var Msg:TMsg;var Handled:Boolean);

  { Public declarations }

  end;

  var

  Form1: TForm1;

  implementation

  {$R *.dfm}

  { TForm1 }

  procedure TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);

  begin

  if (msg.message=WM_MOUSEMOVE) or (msg.message=WM_KEYDOWN) then timer1.tag:=0;

  end;

  procedure TForm1.Timer1Timer(Sender: TObject);

  begin

  timer1.tag:=timer1.tag+1;

  if Timer1.tag=30 then close;

  end;

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  close;

  end;

  end.
分享到:
本文"delphi简单判断程序30秒没有键盘和鼠标动作示例"由远航站长收集整理而来,仅供大家学习与参考使用。更多网站制作教程尽在远航站长站。
顶一下
(0)
0%
踩一下
(0)
0%
[点击 次] [返回上一页] [打印]
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 密码: 验证码:
关于本站 - 联系我们 - 广告合作 - 网站声明 - 友情连接- 网站地图 - 站点地图 - 返回顶部
Copyright © 2007-2013 www.yhzhan.com(远航站长). All Rights Reserved .
远航站长:为中小站长提供最佳的学习与交流平台,提供网页制作与网站编程等各类网站制作教程.
官方QQ:445490277 网站群:26680406 网站备案号:豫ICP备07500620号-4