다음은 원본 코드입니다.
(여기서는 타이머가 1000ms로 설정되어 있습니다) 매개변수는 30초 간격을 나타냅니다! !
다음과 같이 코드 코드를 복사합니다.
단위 Unit1;
인터페이스
용도
Windows, 메시지, SysUtils, 변형, 클래스, 그래픽, 컨트롤, 양식,
대화 상자, StdCtrls, ExtCtrls;
유형
TForm1 = 클래스(TForm)
메모1: TMemo;
버튼1: T버튼;
타이머1: T타이머;
절차 Timer1Timer(Sender: TObject);
절차 Button1Click(Sender: TObject);
사적인
{비공개 선언}
공공의
절차 AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{공개 선언}
끝;
var
Form1: TForm1;
구현
{$R *.dfm}
{TForm1}
절차 TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
시작하다
if (msg.message=WM_MOUSEMOVE) 또는 (msg.message=WM_KEYDOWN) then 타이머1.tag:=0;
끝;
절차 TForm1.Timer1Timer(Sender: TObject);
시작하다
타이머1.태그:=timer1.tag+1;
Timer1.tag=30이면 닫습니다.
끝;
절차 TForm1.Button1Click(Sender: TObject);
시작하다
닫다;
끝;
끝.