وفيما يلي الكود الأصلي:
(تم ضبط المؤقت على 1000 مللي ثانية هنا) تشير إلى فاصل زمني قدره 30 ثانية! !
انسخ رمز الكود كما يلي:
الوحدة 1؛
واجهة
الاستخدامات
Windows، الرسائل، SysUtils، المتغيرات، الفئات، الرسومات، عناصر التحكم، النماذج،
مربعات الحوار، StdCtrls، ExtCtrls؛
يكتب
TForm1 = الفئة (TForm)
مذكرة 1: مذكرة؛
Button1: TButton؛
Timer1: TTimer؛
الإجراء Timer1Timer(Sender: TObject);
الإجراء Button1Click(Sender: TObject);
خاص
{تصريحات خاصة}
عام
إجراء AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{التصريحات العامة}
نهاية؛
فار
Form1: TForm1؛
تطبيق
{$R *.dfm}
{النموذج1}
الإجراء TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
يبدأ
إذا (msg.message=WM_MOUSEMOVE) أو (msg.message=WM_KEYDOWN) ثم timer1.tag:=0;
نهاية؛
الإجراء TForm1.Timer1Timer(Sender: TObject);
يبدأ
timer1.tag:=timer1.tag+1;
إذا Timer1.tag=30 ثم أغلق؛
نهاية؛
الإجراء TForm1.Button1Click(Sender: TObject);
يبدأ
يغلق؛
نهاية؛
نهاية.