截獲與管理Windows的訊息 (轉)

截獲與管理Windows的訊息 (轉)[@more@]截獲與管理的訊息  

摘　要：如何用一個截獲管理Windows的訊息
關鍵字：Windows 訊息 列表
類　別：控制
有時候我們為了多項應用而要管理Windows的訊息。我們怎樣才能做到呢？

{ 這個例子定義的程式可以收取所有發往主視窗的訊息 }

Unit TesteandoEsta;

Interface

Uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus;

Type
 TForm1 = Class (TForm)
 Private {Private declarations}
 Public {Public declarations}
 Procedure WinMsg (Var Msg : TMsg; Var Handled : Boolean);

End;

Var
 Form1 : TForm1;

Implementation

{$R *.DFM}

{ 所有傳送到主窗體的訊息，儲存在變數Msg中。 }

Procedure TForm1.WinMsg (Var Msg : TMsg; Var Handled : Boolean);

Begin
 If Msg.Message = WM_SYMMAND Then Beep;
 { 接收到訊息時的通知}

End;

Procedure TForm1.FormCreate (Sender : T);

Begin
 Application.OnMessage := WinMsg;
 { 替換訊息句炳}

End;