消息处理方法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;