WEB开发网
开发学院软件开发Delphi 截获与管理Windows的消息 阅读

截获与管理Windows的消息

 2006-02-04 13:32:27 来源:WEB开发网   
核心提示:摘要:如何用一个程序截获管理Windows的消息关键字:Windows 消息 监听 列表类别:系统控制有时候我们为了多项应用而要管理Windows的消息,我们怎样才能做到呢?{ 这个例子定义的程序可以收取所有发往主窗口的消息 } Unit TesteandoEsta; Interface UsesSysUtils, W
摘 要:如何用一个程序截获管理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_SYSCOMMAND Then Beep;
   { 接收到消息时的通知}

End;

Procedure TForm1.FormCreate (Sender : TObject);

Begin
   application.OnMessage := WinMsg;
  { 替换消息句炳}

End;

Tags:截获 管理 Windows

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接