30秒間キーボードとマウスを動かさないDelphi簡易判定プログラム example_PHPチュートリアル

この記事では、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

tru​​e

技術記事