`

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 开发人员指南>> 一本值得推荐的书!]
分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics