元のコードは次のとおりです。
(ここではタイマーは 1000 ミリ秒に設定されています) パラメーターは 30 秒の間隔を示します。 ！
次のようにコードをコピーします。
ユニットユニット1;
インタフェース
用途
ウィンドウ、メッセージ、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、
ダイアログ、StdCtrls、ExtCtrls;
タイプ
TForm1 = クラス(TForm)
メモ1: Tメモ;
ボタン 1: T ボタン;
タイマー 1: T タイマー;
プロシージャ Timer1Timer(送信者: TObject);
プロシージャ Button1Click(送信者: TObject);
プライベート
{プライベート宣言}
公共
プロシージャ AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{公的宣言}
終わり;
変数
フォーム1: TForm1;
実装
{$R *.dfm}
{TForm1}
プロシージャ TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
始める
(msg.message=WM_MOUSEMOVE) または (msg.message=WM_KEYDOWN) の場合、timer1.tag:=0;
終わり;
プロシージャ TForm1.Timer1Timer(送信者: TObject);
始める
タイマー1.タグ:=タイマー1.タグ+1;
Timer1.tag=30 の場合は閉じます。
終わり;
プロシージャ TForm1.Button1Click(送信者: TObject);
始める
近い;
終わり;
終わり。