TApplication门类的OnMessage事件

TApplication类型的OnMessage事件
TApplication类型的OnMessage事件

消息处理的技术，可以通过使用TApplication的OnMessage事件来处理消息。我们可以指将一个过程指向OnMessage，当应用程序从消息队列中取出一条消息，关准备处理该消息时就会调用该过程。应用程序在Windows处理这条消息前，调用这个事件处理过程。
Application.OnMessage事件处理过程是TMessageEvent类型，并且定义该过程时，需要带一个参数列表。如：

   procedure SomeObject.AppMessageHandler(var Msg:TMsg;var Handled:Boolean);   begin      //doSth;   end;

这里会将队列里的所有消息填入到Msg参数中，再传递给OnMessage事件处理过程。
注意这个参数是Windows TMsg记录(结构体)类型的，而Handled参数取值为Boolean类型，它表示是否已经处理了这个消息。

Demo1 清单

//  可以从组件选项板中选择 TApplicationEvents[AppEvnts] 组件,//  从而创建一个OnMessage事件处理过程。  begin   var      NumMessage : Integer;   //对所有消息函数的过滤   procedure TForm1.ApplicationEvents1Message(var Msg : TMsg;var Handled : Boolean);   begin     inc(NumMessage);     Handled = false;   end;   procedure TForm1.FormCreate(Sender: TObject);   begin      Application.OnMessage := ApplicationEvents1Message;   end;  end.

Demo2清单

//自定义过程函数  begin     procedure TForm1.FormCreate(Sender: TObject);    begin      Application.OnMessage := WinMsg;    end;    Procedure Tform1.WinMsg (Var Msg : TMsg; Var Handled : Boolean);    Begin      //对WM_SYSCOMMAND该消息处理       If Msg.Message = WM_SYSCOMMAND Then        If Msg.WParam = ItemID1 Then        begin          ShowMessage('My menu!');        Exit;        end;    End;  end.

提示：OnMessage的惟一限制就是它能处理的消息只有从消息队列取出的消息，而不能处理应用程序中直接发给Windows窗体过程的消息。

注意：OnMessage过程中会接受到应用所有Windows发送的消息。它是应用程序中最繁忙的事件处理过程(1秒钟约有上千条消息)，因此不要在OnMessage过程中做耗时的工作，否则会把应用程序变得很慢。很显然，在这个过程中设置断点来调试程序也是很是明智的。

[摘自：<<Delphi6 开发人员指南>> 一本值得推荐的书！]

查看更多 下一篇