本文介绍了一个使用Delphi编写的简单程序，该程序通过一个窗体实现定时关闭的功能。具体来说，程序中定义了一个窗体Form1，其中包含了一个Memo控件用于显示信息，一个Button控件用于立即关闭程序，以及一个Timer控件用于实现延迟关闭。当用户进行鼠标移动或键盘操作时，程序将重置计时器，确保只有在一段时间内没有用户活动的情况下才会触发关闭。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
sd252.info
quwg.info
tfgy.info
cdsu.info
sfrgs.info
xscfr.info
ewrd.info
wextd.info
hfutd.info
kyu78.info
34gts.info
23rfg.info
xc234.info
www.sd252.info
www.quwg.info
www.tfgy.info
www.cdsu.info
www.sfrgs.info
www.xscfr.info
www.ewrd.info
www.wextd.info
www.hfutd.info
www.kyu78.info
www.34gts.info
www.23rfg.info
www.xc234.info
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.
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
