ต่อไปนี้เป็นรหัสต้นฉบับ:
(ตัวจับเวลาตั้งไว้ที่ 1,000 มิลลิวินาทีที่นี่) พารามิเตอร์ระบุช่วงเวลา 30 วินาที! -
คัดลอกรหัสรหัสดังต่อไปนี้:
หน่วย หน่วยที่ 1;
อินเตอร์เฟซ
การใช้งาน
Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม,
กล่องโต้ตอบ, StdCtrls, ExtCtrls;
พิมพ์
TForm1 = คลาส (TForm)
Memo1: TMemo;
Button1: T ปุ่ม;
ตัวจับเวลา 1: TTimer;
ขั้นตอน Timer1Timer (ผู้ส่ง: TObject);
ขั้นตอน Button1Click (ผู้ส่ง: TObject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
ขั้นตอน AppMessageHandler (var Msg: TMsg; var Handled: Boolean);
{ประกาศสาธารณะ}
จบ;
var
แบบฟอร์ม 1: TForm1;
การดำเนินการ
{$R *.dfm}
{ทีฟอร์ม1}
ขั้นตอน TForm1.AppMessageHandler (var Msg: TMsg; var จัดการ: บูลีน);
เริ่ม
ถ้า (msg.message=WM_MOUSEMOVE) หรือ (msg.message=WM_KEYDOWN) จากนั้น timer1.tag:=0;
จบ;
ขั้นตอน TForm1.Timer1Timer (ผู้ส่ง: TObject);
เริ่ม
timer1.tag:=timer1.tag+1;
ถ้า Timer1.tag=30 ให้ปิด
จบ;
ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);
เริ่ม
ปิด;
จบ;
จบ.