同じ種類の複数のウィンドウメッセージが表示されるのはなぜですか？

Question

私はいくつかのウィンドウ とアプリケーション メッセージに応答しようとしていますが、それらを複数回取得します。

たとえば、WM_TIMECHANGEを使用してシステムの日付を変更したときにメッセージボックスを表示するために、次のコードを記述します。 WMTimeChangeは複数回実行され、倍数（ほとんどの場合2〜3回）のメッセージボックスが1つずつ表示されます。たぶん、私は何かを欠いている？

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs; 

type 
    TForm1 = class(TForm) 
    protected 
    procedure WMTimeChange(var Msg: TMessage) ; message WM_TIMECHANGE; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

{ TForm1 } 

procedure TForm1.WMTimeChange(var Msg: TMessage); 
begin 
    showmessage('Date/Time has changed!'); 
end; 

end. 

Windows XPでのテスト。

EDIT：明確にするために、私の意図は理解されていますWHYこれは起こり、複数の呼び出しを回避する方法ではありません。とにかく、それに対する答えが不可能ならば、私は後で答えを受け入れるでしょう。

EDIT2：Delphiの問題ではないように、Delphiタグを削除しました。

Answer 1

コードは正しいです。 WindowsがWM_TIMECHANGEメッセージを何回か送信しているようです。

だから、あなただけのすなわち、多かれ少なかれ15分、あなたのメッセージは1日1回のみの1％あたりのトリガすることができるように小さな時間ヒステリシス比較を追加することができます。これは何を私のようなものである

type 
    TForm1 = class(TForm) 
    protected 
    FWMTimeChangeTimeStamp: TDateTime; 
    procedure WMTimeChange(var Msg: TMessage) ; message WM_TIMECHANGE; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

{ TForm1 } 

procedure TForm1.WMTimeChange(var Msg: TMessage); 
begin 
    if Now-FWMTimeChangeTimeStamp>0.01 then 
    begin 
    showmessage('Date/Time has changed!'); 
    FWMTimeChangeTimeStamp := Now; 
    end; 
end; 

Answer 2

私の場合は、この行動に弾力を回復するために使用されています。しかし、コメントの中で述べたように、ユーザーがアプリケーションに答えるのに時間がかかる場合にのみ機能します。だから、Arnaud Bounchezは一般的な使い方の方が優れています。 FWMTimeChangeStampを現在のコンピュータクロックとは異なる値に初期化することを忘れないでください。

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs; 

type 
    TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    protected 
    procedure WMTimeChange(var Msg: TMessage) ; message WM_TIMECHANGE; 
    private 
    isTimeChangeEventShowing: Boolean; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

{ TForm1 } 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    isTimeChangeEventShowing := false 
end; 

procedure TForm1.WMTimeChange(var Msg: TMessage); 
begin 
    if not isTimeChangeEventShowing then 
    begin 
    isTimeChangeEventShowing := true; 
    showmessage('Date/Time has changed!'); 
    isTimeChangeEventShowing := false; 
    end; 
end; 

end.