この記事では、30 秒間キーボードまたはマウスの操作がなかった場合の Delphi 判定プログラムを詳しく紹介します。ここでは、タイマーに 1000ms のパラメータが設定されており、30 秒の間隔を示しています。興味のある友人は以下を参照してください。
以下は元のコードです:
(ここではタイマーは 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: T フォーム 1;
実装
{$R *.dfm}
{TForm1}
プロシージャ TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
始まります
if (msg.message=WM_MOUSEMOVE) または (msg.message=WM_KEYDOWN) then timer1.tag:=0;
終わり
プロシージャ TForm1.Timer1Timer(送信者: TObject);
始まります
タイマー1.タグ:=タイマー1.タグ+1;
Timer1.tag=30 の場合は閉じます
終わり
プロシージャ TForm1.Button1Click(送信者: TObject);
始まります
閉じる
終わり
終わります
http://www.bkjia.com/PHPjc/372260.html
www.bkjia.com
true
技術記事