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

WBOY
リリース: 2016-07-20 11:16:52
オリジナル
1065 人が閲覧しました

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

http://www.bkjia.com/PHPjc/372260.html

技術記事

ソース:php.cn
このウェブサイトの声明
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。
人気のチュートリアル
詳細>
最新のダウンロード
詳細>
ウェブエフェクト
公式サイト
サイト素材
フロントエンドテンプレート