消息处理方法1:onMessage

《Delphi精要》P134页中提到消息处理有8个方法，现在对上面的方法，做一个实验。
第1是onmessage方法：application中的onmessage方法可以处理属于application的除WM_QUIT以外的所有消息。但该方法用于处理个别方法时，效率会很低，因为需要对WINDOWS中的众多的消息中筛选其中之一。
下面还比较了sendMessage与PostMessage两个方法的区别：SendMessage发送的消息进入了窗体而没有进入消息队列的(这一点还要深究)。Application无法识别没有进入消息队列的消息的。所以OnMessage不能截获该消息。

从图中可以看到SendMessage是没有响应的。

     procedure  AppMsg( var  msg:Tmsg; var  handled:Boolean);
     procedure  FormCreate(Sender: TObject);
     procedure  Button1Click(Sender: TObject);
     procedure  Button2Click(Sender: TObject);


procedure  TForm1.AppMsg( var  msg: Tmsg;  var  handled: Boolean);
begin
   if  msg.message = WM_KEYDOWN  then
      begin
      Form1.Caption: = ' PostMessage:Key Down ' ;
      handled: = true;
      end ;
end ;

procedure  TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage: = AppMsg; // 由AppMsg"接管"(这个词不准确，有待再深究)
end ;

procedure  TForm1.Button1Click(Sender: TObject);
begin
   PostMessage(Form1.Handle,WM_KEYDOWN, 0 , 0 );
end ;

procedure  TForm1.Button2Click(Sender: TObject);
begin
   SendMessage(Form1.Handle,WM_KEYDOWN, 0 , 0 );
end ;

转载于:https://www.cnblogs.com/samsonleung/archive/2008/07/04/1235849.html