本文为大家详细介绍下delphi判断程序
秒没有键盘和鼠标动作
这里给timer设置了
ms)的参数
表示
秒的间隔
具体实现如下
感兴趣的朋友可以参考下哈
以下为原代码
(这里给timer设置了ms)的参数表示秒的间隔！！
复制代码 代码如下:
unit Unit;
interface
uses
Windows Messages SysUtils Variants Classes Graphics Controls Forms
Dialogs StdCtrls ExtCtrls;
type
TForm = class(TForm)
Memo: TMemo;
Button: TButton;
Timer: TTimer;
procedure TimerTimer(Sender: TObject);
procedure ButtonClick(Sender: TObject);
private
{ Private declarations }
public
procedure AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{ Public declarations }
end;
var
Form: TForm;
implementation
{$R *dfm}
{ TForm }
procedure TFormAppMessageHandler(var Msg: TMsg; var Handled: Boolean);
begin
if (msgmessage=WM_MOUSEMOVE) or (msgmessage=WM_KEYDOWN) then timertag:=;
end;
procedure TFormTimerTimer(Sender: TObject);
begin
timertag:=timertag+;
if Timertag= then close;
end;
procedure TFormButtonClick(Sender: TObject);
begin
close;
end;
end
