WndProc、WindowProc、MainWndProc

参考罗小平的《Delphi精要》
建立一个application，写下以上三个"过程":WndProc、WindowProc、MainWndProc，于按下Ctrl+光标，看看他们的定义：
procedure TCustomForm.WndProc(var Message: TMessage);
procedure TWinControl.MainWndProc(var Message: TMessage);
 property WindowProc: TWndMethod read FWindowProc write FWindowProc;//Tcontrol类下的一个属性。
我们再看看MainWndProc的具体定义：

MainWndProc
procedure TWinControl.MainWndProc(var Message: TMessage);
begin
  try
    try
      WindowProc(Message);
    finally
      FreeDeviceContexts;
      FreeMemoryContexts;
    end;
  except
    Application.HandleException(Self);
  end;
end;

MainWndProc没有对Message作特别处理，就交由WindowProc属性去处理了。
再看看在Tcontrol中WindowProc的处理：

FWindowProc
constructor TControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FWindowProc := WndProc;

WindowProc本身也没做什么处理也交给WndProc去处理了。
在Form上调用WndProc是调用TCustomForm上的WndProc,其处理“WM_ACTIVATE, WM_SETFOCUS, WM_KILLFOCUS”等之类的消息后，继承了TWinControl.WndProc方法，而TWinControl.WndProc处理了“WM_SETFOCUS，WM_NCHITTEST”之类消息后继承TControl.WndProc方法。在这些子类处理其类的消息后，需要
inherited WndProc(Message);
而Tcontrol.WndProc最终让无意义的消息作必要的处理后抛弃，其余消息被传入Dispatch实现消息派遣。
（ Tcontrol.WndProc定义的最后一句为 Dispatch(Message);）

 

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