深入VCL理解BCB的消息机制2

function TWinControl.IsControlMouseMsg(var Message: TWMMouse): Boolean;
var
　 //TControl出现啦
　 Control: TControl;
　 P: TPoint;
begin
　 if GetCapture = Handle then
　 begin
　　 Control := nil;
　　 if (CaptureControl <> nil) and (CaptureControl.Parent = Self) then
　　　 Control := CaptureControl;
　 end else
　　 Control := ControlAtPos(SmallPointToPoint(Message.Pos), False);
　 Result := False;
　 if Control <> nil then
　 begin
　　 P.X := Message.XPos - Control.Left;
　　 P.Y := Message.YPos - Control.Top;
　　 file://TControl的Perform方法将消息交由WndProc处理。
　　 Message.Result := Control.Perform(Message.Msg, Message.Keys, Longint(PointToSmallPoint(P)));
　　 Result := True;
　 end;
end;

原来如此，TWinControl最后还是将鼠标消息交给TControl的WndProc来处理了。这里出现的Perform方法在BCB的帮助里可以查到是TControl类中开始出现的方法。它的作用就是将指定的消息传递给TControl的WndProc过程。

结论就是TControl类的WndProc方法的消息是由TwinControl类在其重载的WndProc方法中调用IsControlMouseMsg方法后使用Peform方法传递得到的。

由于这个原因，BCB和Delphi中的TControl类及其所有的派生类都有一个先天的而且是必须的限制。那就是所有的TControl类及其派生类的Owner必须是TwinControl类或者TWinControl的派生类。Owner属性最早可以在TComponent中找到，一个组件或者控件是由它的Owner拥有并负责释放其内存的。这就是说，当Owner从内存中释放的时候，它所拥有的所有控件占用的内存也都被释放了。Owner最好的例子就是Form。Owner同时也负责消息的分派，当Owner接收到消息的时候，它负责将应该传递给其所拥有的控件的消息传递给它们。这样这些控件就能够取得处理消息的能力。TImage就是个例子：你可以发现Borland并没有让TImage重载TControl的WndProc方法，所以TImage也只有处理鼠标消息的能力，而这种能力正是来自TControl的。

唧唧崴崴的说了一大堆。终于可以说处理消息的第二种方法就是重载TControl的WndProc方法了。例程如下：

void __fastcall TForm1::WndProc(TMessage &Message)
{
　　  switch (Message.Msg)
　　  {
　　　　　　 case WM_CLOSE:
　　　　　　　　  OnCLOSE(Message);　// 处理WM_CLOSE消息的方法
　　　　　　 break;
　　  }
　　  TForm::WndProc(Message);
}

乍看起来,这和上次讲的重载Dispatch方法好象差不多。但实际上还是有差别的。差别就在先后次序上，从前面TControl的WndProc可以看到，消息是先交给WndProc来处理，最后才调用Dispatch方法的啦。

这样，重载WndProc方法可以比重载Dispatch方法更早一点点得到消息并处理消息。

好了，这次就说到这里。在您的应用程序里还有没有比这更早得到消息的办法呢？有，下次再说。

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!