消息处理的技术,可以通过使用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 开发人员指南>> 一本值得推荐的书!]